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O Micro Center é uma loja da Mesbla especializada em microcomputadores. E especialista em 
oferecer vantagens. Lá, você encontra as últimas novidades em micros com capacidade de até 64K, dos 
modelos mais simples aos mais avançados. Tudo, com assistência técnica permanente, atendimento 
personalizado, entrega e instalação grátis, além de condições de pagamento especialmente 
programadas para você, com todas as facilidades do Cartão de Crédito Mesbia. Essas são algumas 
das vantagens que o Micro Center oferece a você na compra de um microcomputador. 
Agora venha computar as outras vantagens. 
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sem entrada pelo E 
Credi-Mesbia. O Melhor Para Você. 
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adiroçõal 


A luta pela regulamentação da reserva do mercado brasileiro 
de mínis e microcomputadores às empresas nacionais está ganhan- 
do novas adesões. No dia 7 de julho, cientistas, empresários, 
profissionais de processamento de dados, que compõem o 
Movimento Brasil Informática, reuniram-se em São Paulo para 
discutir a política nacional do setor. O resultado imediato desse 
encontro poderá ser avaliado no dia 17 de agosto, data em que se 
realizará uma Mobilização Nacional pela Informática, com 
manifestações em vários Estados. Para mantermos nossos leitores 
informados sobre a crescente sensibilização em torno da reserva de 
mercado, estamos publicando nota sobre o evento do dia 17. 


Dentro do espaço dedicado ao software, neste número de 
Geração Prológica, veiculamos o programa Mala Direta & 
Editor de Cartas, que, reunindo dois aplicativos eficientes, 
auxiliará nossos usuários a dinamizar os serviços dos escritórios. 


Além de dicas, informações de hardware e software, nesta GP 
nossos leitores ada poderão conhecer os novos kits VDT, que 
permitem aos usuários dos CP 500 e CP 300 acessar o Serviço de 
Videotexto da Telesp. 


E por falar em Videotexto, no próximo número de nossa 
revista estaremos dedicando um espaço especial a esse serviço, que 
pode ser acessado de qualquer parte do mundo, desde que o usuário 
possua o número de um telefone paulista ligado ao sistema. 


Carlos Roberto A. Gauch 
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m primeiro lugar, 

informamos que fizemos 

uma pequena, mas 
significativa, alteração em nosso 
Cartão de Resposta Comercial. 
Basicamente, modificamos o espaço 
dedicado às Informações 
Solicitadas: para melhor atender às 
dúvidas de nossos leitores, estamos 
pedindo que após o número de 
referência de cada matéria, nota ou 
programa seja especificada a 
informação desejada. 


Gostaria de parabenizá-lo pela qualidade 
de sua revista e equipamentos, dos quais 
sou feliz leitor e usuário. Aproveito 
também para esclarecer algumas dúvidas 
que possuo: 

- qual o preço de uma placa de alta 
resolução”? 

- a instalação dessa placa afetaria a 
posterior instalação de uma placa de 
CP/M? 


Caro Morrow, presumimos que você 


esteja interessado em informações sobre 
a placa de alta resolução para o CP 500 
(você não especificou o equipamento). 
Para os CP 300 e CP 500, a Prológica 
estará lançando, neste mês de setembro, 
uma placa de alta resolução, sendo que 
seu preço final será liberado somente 
nessa época. 

Nada impede que você instale uma 
placa de alta resolução e em seguida 
outra de CP/M. No entanto, não 
podemos lhe indicar um fornecedor, pois 
ainda não testamos todos os produtos 


Gostaria de receber todos os 
números atrasados da revista Geração 
Prológica, com execeção do nº 2, que já 
possuo. Gostaria ainda de saber se existe 
no mercado um joystick tipo bastão para 
ser conectado ao CP 200, se há algum 


Caro José Eduardo, aGP nº I se 


encontra esgotada, sendo que poderemos 
lhe fornecer somente exemplares do nº 3, 
4,5€e6. 


Nos revendedores Prológica você 
encontrará o joystick tipo bastão da 
Greika Comercial Ltda — Cx. Postal 
9406, SP. No entanto, você terá de levar 
o seu micro à Assistência Técnica 
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Em segundo lugar, comunicamos ao 
pessoal do Colégio Pio XII, de Juiz 
de Fora (MG), que o volume de 
correspondências enviadas a esta 
revista pelos alunos do curso de 
Processamento de Dados foi 
bastante significativo, o que nos 
impossibilita de atender a todos os 
pedidos de revistas. No entanto, 


- no caso de instalação de uma placa de 
CP/M, qual a marca que vocês 
recomendariam? 

- OS componentes eletrônicos de um CP 
500 seriam compatíveis com a 
substituição do microprocessador Z80 
pelo Z80B, clock de 4 MHz? 


R. Morrow 
Goiânia - GO 


existentes no mercado. Agora, quando 
você for comprar uma placa desse tipo, 
fique atento para dois fatores: verifique 
se ela lhe permitirá ampliar a memória de 
seu micro para 64 Kb de RAM além de 
lhe possibilitar uma formatação de tela 
tipo: 80 colunas por 24 linhas. 

Com relação à sua última dúvida, 
lhe informamos que um 
microprocessador Z80B é incompatível 
com os componentes eletrônicos de um 
CP 500, particularmente, com o cristal 
que define o clock para o 
microprocessador. 





programa com o qual eu possa jogar 
xadrez nesse equipamento e qual a 
possibilidade de adquiri-los pelo 
reembolso postal. 
José Eduardo Ribeiro Marques 
Santo André - SP 


Prológica para instalação de um 
conector que lhe permitirá utilizar esse 
periférico. Com relação ao jogo de 
xadrez, a Microsoft possui o TKdrez, 
16kb de RAM. o endereço da Microsoft é 
av. Angélica, 2318, 13º and., cj. 132, 
CEP 01228. Escreva para estas duas 
empresas e certifique-se se ambas 
comercializam seus produtos pelo 
reembolso postal. 





se o professor encarregado do 
curso nos enviar o endereço do 
Colégio, cederemos gratuitamente, 
para uso dos alunos do Pio XII, 
uma assinatura de 

nossa revista. 


A todos, um abraço. 











Sou possuidor de um CP 300 e ao 
tomar conhecimento da revista Geração 
Prológica achei-a de grande utilidade 
para os usuários dos CP's Prológica. 
Como não a encontro em bancas de 
jornais de Florianópolis, solicito 
informações sobre os procedimentos 
necessários para recebê-la 
regularmente. 

Gostaria também de obter todos os 
exemplares atrasados dessa 
publicação. 


Antonio Guilherme S. Ribas 
Florianópolis - SC 






















Em primeiro lugar, gostaria de 
parabenizá-los pela ótima revista que 
vocês publicam. Em segundo, solicito 
esclarecimentos para os seguintes 
pontos: 

- para que endereço devo enviar o vale 
postal, através do qual me tornarei 
assinante de Geração Prológica? 

- há algum erro no programa Micro 
Melodia, publicado na GP nº 4º pois ao 
digitar RUN o programa pára na linha 
370. 


Marcelo de Mendonça Tavares 
Rio de Janeiro - RJ 

















Prezados leitores: Geração 
Prológica é uma revista distribuída por 
meio do sistema de assinaturas e 
através dos revendedores Prológica. 
Para tornar-se assinante desta 
publicação, basta anexar vale postal 
ou cheque de Cr$ 7 mile 500 ao Cartão 
Resposta Comercial, que acompanha 
cada exemplar de GP. Este cartão 
Já está previamente endereçado à 
Prológica, através de alguns códigos 
impressos em seucanto superior direito. 
A você, Marcelo, comunicamos 
que a listagem do programa Micro 
Melodia não possui nenhum erro. 
Cheque se você a digitou corretamente. 















CP 500 023/D 


A Prológica lançou, em junho últi- 
mo, o CP 500 023/D, que apresenta a 
mesma configuração básica do CP 500, 
com uma alteração significativa: ao in- 
vés de dois drives de face simples, com 
175Kb cada, o 023/D possui dois drives 
de dupla face, com 350Kb cada. 

Hoje em dia, um drive face simples 
custa em torno de Cr$ 1 milhão e um face 
dupla, Cr$ 1 milhão e 500 mil. Por este 
motivo, o 023/D veio propiciar aos usuá- 
rios finais uma capacidade de armazena- 
mento 100% maior por um preço bastan- 
te inferior. ““Tendo-se em vista que des- 
de 1981 a Prológica domina a tecnologia 
de fabricação de drives, conseguimos 
uma grande produção desses periféricos, 
o que nos possibilitou implementar no 
CP 500 dois drives mais possantes, que 
duplicaram nesse equipamento a capaci- 
dade de armazenamento, pela metade do 
preço”, explica Paulo Sérgio Carreiro, 
gerente de produtos da linha CP. 


O CP 500 023/D vem atender às 
pequenas e médias empresas e a todos os 
usuários que necessitem de uma maior 
capacidade de armazenamento de dados. 
O 023/D já pode ser encontrado em todos 
os revendedores Prológica. 


Mobilização Nacional 
pela Informática 


Defendendo a regulamentação da 
Reserva de Mercado para a área de 
informática e consequente desenvolvi- 
mento da tecnologia nacional, o movi- 
mento “'Brasil Informática” reunido no 
dia 7 de julho, decidiu realizar em 17 de 
agosto próximo uma Mobilização Nacio- 
nal pela Informática, com manifestações 
em todo o País. 

Durante a reunião do dia 7 — da 
qual participaram cientistas, fabricantes 
de equipamentos, profissionais da área 
de processamento de dados, etc. — fo- 
ram criados comitês estaduais que irão 
organizar as manifestações do dia 17, 
quando serão distribuídos folhetos à po- 
pulação explicando o que é Reserva de 
Mercado e qual a sua importância para o 
desenvolvimento da indústria nacional 
de informática. 


A Informática na 8º Bienal 
Internacional do Livro 

Entre os dias 16 e 26 de agosto, será 
realizada, no Pavilhão da Bienal, no 
Parque do Ibirapuera (SP), a 8: Bienal 
Internacional do Livro, que contará com 
a participação de aproximadamente 500 
editoras, nacionais e estrangeiras. Para o 





(O 

público em geral, o estande 63 apresenta- 
rá, no mínimo, uma surpresa agradável e 
útil: um CP 500 acoplado a um P 500 
oferecerá aos interessados listagens con- 
tendo todas as obras publicadas pela 
L&PM além de textos opcionais sobre os 
livros mais vendidos pela editora. O CP 
500 e a P 500 que o público encontrará no 
estande da L&PM são contribuições da 
Prológica para esta 8º Bienal Internacio- 
nal do Livro, aberta das 15 às 22hs, nos 
dias úteis, e das 10 às 22hs, fins de 
semana. 


Geração Prológica Informa 


Dentre os serviços que a Prológica 
passa a oferecer aos usuários do Video- 
texto (VDT), uma novidade: Geração 
Prológica Informa, um sistema onde as 
matérias, artigos, notas e programas vei- 
culados pela revista Geração Prológica 
poderão ser acessados pelos usuários do 
VDT. Este novo serviço oferecido pela 
Prológica vem propiciar a um maior 
número de pessoas o acesso às informa- 
ções veiculadas por GP ampliando os 
leitores da publicação e possibilitando o 
intercâmbio de informações e conheci- 
mentos entre públicos de veículos distin- 
tos, o que torna a comunicação mais rica 
e abrangente. 
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Diversões Uso Caseiro Educacionais 

e Jogos Comerciais Profissionais 

Pessoais Gráficos Científicos 

E... mi JU originais 

que você pode retirar Para os principais CP 300 

e levar para micros do mercado: CP 500 e 
sua casa ou TIMEX/SINCLAIR, TRS80 Mod. III : 
empresa para CP 200 Sistema 700 É 





usá-lo à vontade. 


Você pode consultar pessoalmente os catálogos de Software ou solicitar informações pelo Correio. 
Av. Brigadeiro Faria Lima, 1390 - 8º Andar - Cj. 82 - CEP 01452 - Tels.: (011) 814-0682, 813-6407 e 210-1257 - São Paulo - SP 


apoio INFORMA X 





Este jogo simula uma disputa de 
dados entre uma ou duas 
pessoas. Para jogar você terá de 
dizer o seu nome e sua aposta 
para o micro, estabelecendo a 
quantia que será apostada no 
número escolhido. Os dados 
serão jogados pelo computador e 
o resultado será exibido na tela. 
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Modelo: CP 200 16Kb RAM 





LO CICICIEICICICIEICICICIEICICICIC RICCI ICC IC ICE IE TE EI 


EA 8 VR o JOGO DE DADOS * 
SO “% PROLOGICA * 
40 “x. CP-200 * 


DO FERREIRA 


60 DIM N$(2,6) 

70 DIM S(2) 

S0 DIM P(2) 

90 DIM C(2Z) 

100 LET SM=0 

110 CLS 

120 PRINT 

130 PRINT" JOGO DE DADOS" 
140 PRINT 

150 PRINT 

160 PRINT" DIGITE 1 OU 2 JOGADO 
RES 2! 

170 INFUT N 

180 IF N<1i OR N>2 THEN GOTO 160 
190 PRINT AT 6,1;" JOGADOR 1" 

200 PRINT AT 7,13"NOME 2 


| 210 PRINT “(MAXIMO é LETRAS)" 


220 INPUT N$&(1) 
230 PRINT AT Z,8;N$(1) 
240 PRINT AT 9,1;5"QUANTO TEM CR$ 


250 INPUT S(1) 

260 PRINT AT 9,18;S(1);".00 n 
270 PRINT AT 11,1:"QUANTO VAI APOS 
TAR ? CR$ "; 

280 INPUT P(1) 

290 PRINT P(1)3".00 n 

300 PRINT 

310 PRINT " EM QUE No.? "; 

320 INPUT C(1) 

330 IF N=í THEN GOSUB 680 

340 IF N=1 THEN GOTO 450 

350 IF N=2 THEN PRINT AT 6,1;" JOGA 
DOR 2" 

360 INPUT N$(2) 

370 PRINT AT 7,8;N$(2) 

380 INPUT S(2) 

390 PRINT AT 9,18;5(2);".00 n 
400 INPUT P(2) 

410 PRINT AT 11,255P(2);".00 


420 INPUT C(&) 

430 FAUSE 100 

440 GOSUB 680 

450 FOR X=1 TON 

460 IF C(X)=R THEN LET S(X)=5(X)+P 


470 IF C(X)<>R THEN LET S(X)=5(X)- 
P(X) 

4380 IF C(X)«>2R THEN LET SM=SM+P(X) 
490 IF C(X)=& THEN LET SM=SM-P(X) 
300 PRINT 

S10 PRINT N$(X);"AFOSTOU NO “5C(X) 
S20 IF C(X)=R THEN PRINT "GANHOU" 
S30 IF C(X)<>R THEN PRINT "PERDEU" 
S40 PRINT " AGORA TEM CES ":S(X) 


DIO 


6 NR.” 


360 
370 


740 
750 
760 
770 
780 
790 
800 
Si0O- 
820 
230 


S40 


IF C(X)>6 THEN PRINT “DADO TEM 


NEXTX 
PRINT 
PRINT "A BANCA ESTA COM CR$ "; 


FRINT 
PRINT “DIGITE <A> P/ NOVA APOS 


PRINT “DIGITE «S> P/ NOVO SORT 


INFUT Zs 

CLS 

IF Z$="A" THEN GOTO 

IF Z$="S" THEN GOTO 680 
GOTO 5330 

PRINT 

FOR B=1i TO 7 

CLS 

LET R=0 

LET ER=INT (REND*5)+1 
GOSUB (R*100)+1000 

IF B<> 7 THEN CLS 

NEXT B 

IF N=í THEN GOTO 450 
PRINT 

PRINT"No. SORTEADO ";K 
PQUSE 1Z0 

GOTO 450 

PRINT 

PRINT AF-4,15; "tau 
PAUSE 60 

ME TURN 

PRINT AT A,175"4GAT 6,135"! 


S50 PAUSE 60 


360 
370 
SS0 
S90 
200 
910 
920 
230 
940 
SãO 
260 
970 
950 
990 


RETURN 

PRINT AT 2,175"&" 
PRINT 

PRINT AT 4,135" &" 
PRINT AT ó,134"&" 
PORUSE 60 
RETURN 
PRINT HT Z 
PRINT AT 6 
PAUSE 60 
RETURN 
PRINT AT 2,1535"& E A 
PRINT 

PRINT AT 4,153; *" 


1000 PRINT 


1010 


PRINT AT 6,15;"4 


1020 PAUSE 60 


1030 
1040 
1050 
1060 
1070 
1030 
1090 
1100 
1110 
iizó 
E H 


KE TURN 

PRINT AT 2,135"% nr 

PRINT 

PRINT AT 4,1334"% per 

PRINT 

PRINT HT 6,154"% Hr 

RETURN 

SAVE “DADO” 

FUN 

FEM ESTE CORACTER "&" EQUIVAL 


QUAL QUER CARACTER GRAFICO 


SIE usa ao re———— eee eae ava acc E5 EEE EEE EEE se gos SIE E E —— 


Mala 


Direta 
& 


Editor 
de 
Cartas 


departamento de software da li- 


Ea a nha dos Computadores Pessoais 
W./” Prológica desenvolveu este pro- 


AE 
“Eau 


grama, Mala Direta & Editor de 
Textos, visando à agilização dos traba- 
lhos nas empresas e consequente redu- 
ção do tempo de produção. Este progra- 
ma permite aos usuários a união de dois 
serviços básicos dentro de uma empresa: 
o processamento automático de textos e 
elaboração de listagens para a mala di- 
reta. 

O aplicativo é composto pelas se- 
quintes funções: 
Criação de Cartas (1) 
Consulta de Cartas (2) 
Cadastramento de Destinatários (3) 
Consulta de Destinatários (4) 
Listagem de Cartas com os Respectivos 
Destinatários (5) 
Finalização (6). 


Sempre após digitar o número corres- 
pondente à opção desejada, é necessário 
teclar ENTER. 


Criação de Cartas 


Para esta função, o usuário deverá 
fornecer um nome-código que designará 
sua carta e que não poderá ultrapassar 
oito letras maiúsculas. Cada linha da 
carta deverá ter, no máximo, 60 caracte- 
res, sendo que ao final de cada linha será 
necessário pressionar ENTER para ini- 
ciar a linha seguinte. O micro tem um 
controle interno que não possibilita a 
entrada de um número superior ao esta- 
belecido: 60 caracteres. 


Consulta de Cartas 


Esta opção permite consultar a carta 
criada. Para tanto, é necessário que o 
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Modelo: CP 500 48Kb RAM 


nome-código da carta seja o mesmo. Se 
houver alguma dúvida, finalize o progra- 
ma e exiba o diretório dos arquivos 
contidos no disquete, para verificar se 
não houve engano quanto ao nome cor- 
reto da carta. 


Cadastramento de Destinatários; 


Aqui, deverá ser fornecido o núme- 
ro do primeiro ao último destinatário, 
para exibição dos campos a serem preen- 
chidos. Exemplo: no caso de se desejar 
introduzir uma carta ao destinatário 20, é 
necessário preencher os campos indica- 
dos com o nome desse destinatário, 
endereço, cidade, Estado. 


Consulta de Destinatários 


Nesta função deverá ser fornecido 
ao micro o número de destinatários a 
consultar, para exibição no vídeo dos 
dados solicitados. 


Listagem de Cartas 


Esta opção permite que uma carta 
seja impressa para diversos destinatá- 
rios. Para isso, deverá ser fornecido o 
nome do arquivo e os nomes do primeiro 
e do último destinatário. 

O Mala Direta & Editor de Textos foi 
desenvolvido para a impressora P 500, 
que permite a impressão de 58 linhas por 
folha, 60 caracteres por linha. Nesse 
caso, as chaves 7 e 10 devem estar na 
posição OPEN e as demais desligadas. 

À última opção, Finalização, permi- 
te o fechamento do arquivo aberto du- 
rante a execução do programa. 
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Mala Direta 
& | 
Editor de Cartas 


LO CICIEIEIEIEIEIEIE IEEE IE IE IE IE ICI IE IE IE IE IE ICE ICI IE IE IE 


O “+ MALA poa ETR * 
SO “x PROLOGI * 
40 “x CR=500 | * 


EO Centenario ni ao 
60 CLEARSO 


à Pbirasoso,2” PROTEGE AS Z LINHAS 


100 RS E SORONIÇA MICROCO 
pousa LTD 


110 RINTOA GELO ESEC ICE IEEE IE IIS III 
HR h Rã Ea D IFRETAxkKeessx+ 
EIEIEIEIEIEIEIEICIEIEIEIE 

120 CLS 


130 OPEN “R",1,"ETIQUETA/DAT",15 
140 FIELD 1,30 AS D$,30 AS E$,30 “a 
S C$,30 AS T$ 
150 CLS 


E PRINTC64*3+10,"1- CRIACAO DE 
170 PRINTOS4X5+10,12- CONSULTA DE 
190 PRINTE64*7+10,"3- CADASTRAMEN 

TO DE DESTINATARIO" 

190 FRINTECUROHIO, “4— CONSULTA DO 
DESTINATARIO" 

200 PRINTE64*11+10,'"S- LISTAGEM" 
210 PRINTEG4H13+IO, "nE- FIM! 


ao) PRINTE64*15+10, "DIGITE A SUR O 
PRO" INPUT a 


230 ON À GOSUE 250 1550 A 
240 1250 ; 1430 2140 
240 GOTO iSC 


250 “CRIAÇÃO DE jEARTAS* 
260 Ni=3:GOSUBS2 

270 GOSUB 2180 
220 GOSUBSSO 
290 FORI=1IT04 

300 FRINTE64410+9, "DIGITE ( € ) FA 
EA FINALIZAR À CARTA”; 

310 FORJ=ITOLOO:!NEXTI' 
NTE64*5+5, CHR$ (31); :FOR]=1T 
0100 ENEXTI 1 
330 GOSUESZ0 
340 GOSUES00 
350 FRINTO64*3, 

340 GOSUBS3O 

370 GOSUB 2220 

380 IF B$=CHR$ (64)THEN GOTO4SO 

390 IF E$=CHR$(13) THEN qESEI X$=ST 
a00 CSBPITND ELSE LSET 


HU ; 
a 


=N+L:Ni= Nieto 
410 PUT 
420 TEN< CLITHEN 370 


460 GOSUBSZO 

470 PRINT64410+10, "DESEJA CRIAR M 
AIS CARTAS? (4S>,N) “; 

480 IF ES <> 18% THEN" RETURN 

490 GOTO2S 

500 PRINTGSMRI 542, np===0 == == =1=——— 


assine e 
colabore com 


PROLOGICA 


a revista de 
quem tem CPs. 
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510 RETURN 

520 CLS 

530 PRINTO64*2+10,"*** CRIACA 
O “D:E CARTAS xxx" 

540 RETURN 

SsS0 GOSUEBS3O 

560 GOSUBZ1S0 

570 B=3 

s80 FOR I/%=1 TO LOF(2) 

590 IF B>=13 OR 1%= LOF (2) THENS4O 
600 FOR Lú=11T I% STEP 

610 IF IZ = L% THEN 640 

620 NEXT LX 

630 G0T0700 


O PRINTE64%14+10, "APERTE A TECLA 
< ENTER > PARA CONTINUAR " 
650 Z$=INKEYS 
660 IFZ$=""THEN65O 
670 IF2$< >CHR$ (13) THEN6SO 
680 GOSUBS3O 


690 E=3 
700 GETS, T% 

Zio PEINTESAXB42, XS 
720 B=B+1 

730 NEXT 


740 PRINTO64x%14+10, "APERTE A TECLA 
<ENTER> PARA CONTINUAR! 
750 Z$=INKEYS$ 

760 [F26="THENT 

770 IFZS< >CHRS (13) THEN7SO 

780 CLOSEZ 

790 GOSUES3O 

800 PRINTEG4*5+5 “": INPUT"DESEJA C 
ONSULTAR MAIS CARTAS? (<S>,N) “45% 
810 IFS$<>"S?THEN RETURN 


20 GOTO 550 
556 CLS 
qlad E INd Go eee “xxx CO NSOU 
LIA E CARTAS xxkx! 
so RETURN 


São GOSUB1 220 

270 PRINTOLAAS “PRIMEIRO CADASTRAM 

ENTO cRENHRS ATER ERNRUTEA 
AMEN 

TO DE DESTINATÁRIO : 

890 CLS 

900 FORIZ=PY TO U% 

910 GOSUBE1220 

220 ,PRINTBGARS "DIGITE DESTINATARI 

930 IF LEN(DI$)<=30THEN970 

940 PRINTE44%4,CHES (29) 

950 PRINTE64+S | CHES$ (29) 


970 PRINTE64*7, "DIGITE ENDERECO 
: “ss INPUT El$ 
980 IF LEN(El$)<= 30 THEN 1020 
990 PRINTeE64%6,CHE$ (29) 
1000 FRINTE64*7,CHR$ (29) 
1OiÓ GOTO97O 
1020 PRINTESA%O “DIGITE CIDADE 
: "=: INPUT Cig 
1030 TF LEN(C1$)<=30THENLOTO 
1040 PRINTE64%S,CHES (29) 
1050 FRINTE44%9 /CHRS (29) 
1060 GOTOioOgZo 
1070 ERINTES4*11, "DIGITE ESTADO 
1080 IP LEN(T1I$)<=30THENL1ZO 
1090 PRINTO64X10,CHES (29) 
1100 PRINTE64x*11,CHF$ (29) 
O GOTOLOZO 
O PRINTE64*13+22, "DADOS CORRETO 
>5N) “sz INPUT BIS 
) IF Blige 2"S” THEN 91O 
O LSET D$=Dis 
SO LSET ES=EiS 


Japa 
Pu th 
As Et 


pio poa pot pus fra (py fot pa 
=] 
o 
r 
[EP] 
m 
RE 
= 
t+ 
H 
as 
o 
ta 


ps 
fot ua fd pus poi pus pé 
O o 
SS a 
Ovo m 
"cum 
DM m 

emo 

o 

++ 

H 

[e 

th 


co 
+ 


pa pa 
EI tj 
tio 
DD 
Az 
mim 
— >< 
CC 
2] 

£ 


ata 
N s, 
JN 


1556  EINTO44%2 ELLER 
** CADASTRO DE DESTINATARIO xxxxx% 
Ee Ce e de ue e e e de 


1240 RETURN 


E a CONSULTA AOS DESTINATARIO 
1260 CLS 

1270 PRINTO64*2 ERIC IEEE IE IEEE IE IEEE 
**** CONSULTA AOS DESTINATARI 

OS RRICILICICIC III IE IE III IEEE! 


1280 PRINTEG445, "DIGITE 
0 » DESTINATAR RIO ! cssINPUL NERO D 


E LE qodAs SLor (1) THENT SO” 
do FEPEHO Oo um coasreo D 
ESTE DESTINATARIO" 

1340 BOTUL250 

1366 PFINTOEL A s DESTINATARIO ":;6% 
is70 fenitêsass, "ENDERECO 

1380" PRINTE64*S,"CIDADE 

1390. FR INTeG4e1O, "ESTADO 


1400 PRINTE44*15,"“.:TNPUT “DESEJA 
CONSULTAR MAIS DESTINATARIOSS (55 


25N) “ans 

1410 IÊ S$ <> "S" THEN RETURN 

1420 GOTO1L250 

1430 “xx LISTAGEM DE CARTAS xx" 
1440 CLS 


1450 GOSUB 2Z150 
En cond boad, 1"ENTRE COM DATA DA 


CA 
1470 PRINTe44%6,'"CIDADE 
"e INPUTCIS 
1480 IF LEN (CI$) <= 30 THEN 1520 
1490 PRINTe64+5,CHR$ (29) 
1500 PRINTE64%6,CHE$ (29) 
1510 GOTOL470 
1520 PRINTE64*8, "DIA (DD) 
“7 2 INPÚTDIS 
1530 IF LEN (DI$)<= 2 THEN1SS0 
1540 PRINTE64*7,CHE$ (29) 
1550 GOTOiS20 
1560 PRINTE64*10,"MES P/ EXTENSO 
; E INPUTMES 
1576 IF LEN (ME$)<=10OTHEN1600 
1590 PRINTOG4RO. CHR$ (29) 
1590 60701560 


1600 PRINTE64*12, "ANO (XXXX) 
"+ 5 INPUTAAS 
1610 IF LEN(RAS)=4THENI64O 
1620 PRINTE64*1,CHRS (29) 
63 
1646 PRINTG64*15, "DATA CORRETA(S;< 
N>"; 2: INPUTSS 
Lós6 TES$=TN“THEN 1440 
1660 TT$=CI$+", "+DI$+" de "+MEg+" 
de "+AAS 
1670 N=LEN(TTS) 
1680 M=70-N 
1690 GOSUB 2150 
1700 GOSUB2120 
1710 GOSUBZISO 


17Z0 PRINTE64*3, "A PARTIR DE QUAL 
DE Eae QUÊR IMPRIMIR “a 5 INPU 


ao PRINTE44+*10, "QUAL O NUMERO DO 
(ULTIMO DESTINATÁRIO ms 2 INP 


1740 “eLy= 
1750 FOR Tx = PA TO UZ 
1760 FORL4=1TO4 
LAO CERINTO * 
no NEXT 
790 CL4=CL 
iÉdo LERINTÍAB (M)TTS 
ÍS1i0O CL4=CL4+1 
1820 FORZA=1TOS 
1850 LPRENTº * 
13840 NEXT 


1850 CL%=CL/+3 

1860 LPRINT TRB(1O) “A” 
1870 CLY= Elis 1 

1280 GET 

1890 CPRINTTÃB(10)DS 


1900 LPRINT TRB(10)E$ 

1910 LPRINT TAB(1O) C$"-"T$ 
1920 CLA=CL/+3 

1930 FORNL=ITOS 

1940 LERINT' 


19350 NEXT 

19260 Raio nb 

1970 FOR K=1i LOF 

Raso nso PEER (16425) 560 THEN1L990 E 


[596 “CE BINT CHR$ (12) 
2000 CLj= 

2010 FOR Eye 1TO 4 
2020 LPRINT 1 n 

2030 NEXT, 

2040 CL/= 

2050 Be 

2060 CLIERLY “+1 

2070 LPRINTTRE(10)X$ 


2080 NEXT 

2090 LPRINT CHR$(12) 

2100 CL/=0 

2110 NEXT 

2120 CLOSE 2 

2130 RETURN 

2140 CLOSE : END 

2150 CLS 

2160 PRINTE64*2+10,"**x* LISTA 

G EM D E CR RTAS kx%! 
2170 RET 

2180 PRINTE64*9+14 "QUAL O NOME DO 
ARQUIVO "2 INPUT À is 

2190 OPEN "Rº,2,AIS 

2200 FIELD 2 DO? AE kS 

2210 RETUR 

2220 POKEISA1O, 95:POKE16412,1 


ZADO Eg= mm 


2240 PRINT GNI*64,"": 
2250 GOSUB 2270 
2260 RETURN 


2270 PRINTCHKES (15); : FORK=1TOLS:A$= 
INKEY$:IFAS<>""THENZESO ELSENEXT:P 
RINTCHES (14); :FORK=1T01S:AS=INKEYS 

:IFAS<>"“THENZ280 ELSENEXT:GOTOS27 


Ô 


2250 IFA$S= CHES (13) THENRETURNELSEI IF 
(A$=CHR$ (8) ORAS$=CHR$ (24) )ANDLEN (ES 
J=OTHENZZ7O ELSEIFA$=CHES (3) 0RAS=C 
HE$ (24) THENB$=LEFTS(B$S,LEN(B$)-1): 
PRINTCHES (3): :G0T02270 ELSEIPLEN(E 
on ELSEB$S=BS+AS:FPRINTAS 








Prológica 
Lança Novos 


Ria o: 


para Os 
CP 500 e 


Sho é UA 


- través de um projeto desenvolvido 
À conjuntamente pela Telesp — Te- 
lecomunicações de São Paulo — e 
Prológica, a partir do último mês de maio 
os usuários do CP 500 e CP 300 podem 
ter acesso ao Serviço de Videotexto 
(VDT) por meio da requisição de uma 
assinatura do sistema junto à Telesp e da 
conexão de um kit a seus equipamentos. 
Neste mês de julho, a Prológica colocou 
a disposição de seus usuários seis tipos 
diferentes de kits, que atendem tanto aos 
usuários do CP 500 quanto aos do CP 
300. 


Em sua configuração básica, um kit 
apresenta modem, interface RS 232 €, 
cabo conector e um software de protoco- 
lo de comunicação, em fita ou disco. 
Para os usuários do CP 500, os revende- 
dores Prológica estão comercializando o 
kit de nº 36, com modem, RS 232€ 
(interface 28), cabos, manual e software 
em disco. Os kits de número 38 e 39 
atendem aos usuários do CP 300 e são 
compostos por modem, RS 232C (serial 
30), cabos, manual e software em fita e 
disco, respectivamente. Para os dois 
equipamentos, foram desenvolvidos os 
kits 40, com modem, fita, cabos e ma- 
nual, o kit 41, com modem, disco, cabos 
e manual e o kit 42, que apresenta 
somente o software VDT gravado em 
disco. 

Os kits para acesso ao VDT podem 
ser encontrados nos revendedores Proló- 
gica de São Paulo a um preço de Cr$ 500 
mil, em sua configuração básica. Se o 
usuário já possuir um modem e optar 
apenas pela aquisição de programa VDT 


ERRATAS 


Revista Programa 
GP 2 Caçada ao Porco 


(pág. 13) 






GP 3 Adição Subtração 
(pág. 15) 

GP 4 Rali 
(pág. 5) 

GP 5 Dados 


(pág. 16) 





240 ....:NM$="***""HS$="59.59”. GOTO200 
250 IF Y AND B A THEN GOTO 290 


220 IF V 1 OR V 4 THEN 160 
770 IF H =W THEN ? 768, “CONSEGUIU 


VENCER O MICRO!!! 
É PURA SORTE ass: CP 300/500": GOTO 870 








gravado em disco, o kit custará por volta 
de 30 ORTN's. 


Instalação 


O revendedor do kit é responsável 
pela instalação da RS 232C. Feito isto, 
basta que o usuário conecte o cabo de 
ligação ao modem e à RS 232€C do CP 300 
ou CP 500 e, em seguida, ligue um dos 
terminais do modem à rede telefônica e 
outro à rede elétrica. 

Escolhido e adquirido o kit, para 
receber as informações dos 100 fornece- 
dores de serviço do VDT, é necessário 
que o usuário faça uma assinatura junto 
à Telesp, informando o número de série 
que está impresso no disquete ou fita 
Videotexto, dados pessoais e seu núme- 
ro de telefone. O valor da assinatura 
como usuário do VDT será debitado 
regularmente na conta telefônica, como 
ligação comum, computada por impulso, 
sendo que após as 20h será cobrado 
apenas um impulso. 










esa ra poa 4a 
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Submarino 





Modelos: CP 300/CP 500 48Kkb RAM 


Missão 


NA 





Jogos de guerra são jogos de guerra: ou você tem habilidade suficiente 
para destruir ou fatalmente será destruído. Neste jogo, sua missão será 
a de eliminar os submarinos inimigos dentro de seu território, pilotando 

um helicóptero. Você terá de disparar (e acertar!) contra submarinos 

fortemente armados, que terão a possibilidade de rebater seus tiros. 


Difícil? Quem vencer, dirá. 


Para movimentar-se, use asteclas 4 t epara disparar use a barra de 
espaços. Você poderá lançar seus mísseis em duas direções: diagonal e 
vertical. Cinco mísseis disparados simultaneamente destróem um 
submarino inimigo, sendo creditados pontos a você. Para vencero jogo 
você terá de afundar cinco submarinos ou marcar 600 pontos. 


LO CIJEICIEIEIEIE IE IE IE IE IE IE IE IE DE IE DE IE IEEE IEEE RICH KH 


Ed MISSÃO SUBMARINO II * 
SO “* PROLOGICA * 
40 “x CP-300/CP-300 * 


GO CEREAL ERR 
so 

70 nAg=" ne2o 
ESPACOS EM ERANCO 

80 QA!=VARPTE (AA$) 

90 QE!=FEEE(QR!+1)+PEEK(QR!+2)*25 
100 DEFUSE=QE! 

110 FORA!=QB! TOQE! +21: 

1Z0 B'=A!:IFE! >32767THENE!'=B!-6553 

& 

130 READQ:POKEE!,Q 

140 NEXTA 

150 DATÃZOS,127,10,76,69,62,1, 211, 

255,16,254,69,62,16,211,255,16,254 





13:32, 239, 2010 

160 “INICIO 

170 CLS: CLEAR300:DEFINTA-Z: RANDOM: 
TI$="MISSAO SUEMARINO I 
E da 


180 T&=STRING$S (5,95)+CHES (176) +STE 
ING$ (5,95)+CHE$ (26) :LE=TS+STEINGS ( 
9,8)+CHES$ (140) +STRING$ (4, 143) +STERI 
NG$ (3,131)+"0" 7R$=T$+STRING$ (11,9) 
+"0"+STRINGS (3,131)+STRINGS (4,143) 
+CHR$ (140) :F$=T$+STRINES (7,2)+CHES 
(142) +CHE$ (143) +CHE$ (141) 

190 E$=CHES (203) +CHES (26) +STRING$ ( 
11,9)+CHES (203) :S1$=CHE$ (130)+CHES 
(185) +CHES$ (147) :S2$=CHR$ (186) +STEI 
NG$ (2,191):SB$=STRING$(3,176)+CHES 
(190) +CHE$ (159) +STEINES$ (4,176) 


O SGD 
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AO X1$=CHES$ (131)+CHES$ (140)+CHES (1 
76)+CHR$ (140) +CHES (131)+CHES$ (140)+ 
CHE$S(176)+CHES$ (140)+CHES (ISÍIND+ 
Xab=CHRG(140)+CHES(179)+" "+CHE 
& (179)+CHE$ (140) 
alô X$&=CHES(176)+CHES(140)+CHES (IS 
1)9+CHE$ (140) +CHES$(176)+CHES (131)+C 
HE$(140)+CHES(176):SB=135:HH$&=L$1M 
=30:L=4:FB=63: GOSUB450 
ga) CLS:GOSURS4O  :JJ=Lx64+M: PRINT 
EJJ,HH$; : GOSUESSO 
“so PRINTeEO,"PONTOS"PT;:PRINTE4S,H 
I"AFUNDADO(S)" «2 IFE< 1 THENGOSUESSO 
GOTOZI0O  ELSEIFPT>S99THENSOO EL 
SEJS=Za5-INP (O): KB=PEEK (14400) 
240 TFJS=1I0FEB=STHENL=L-1:HH&=F$&:P 
B=64:6G0T0Z60  ELSEIFJS=20FkKB=16THE 
NL=L+1:HH$=F$&:PB=64:60T0260 ELSEI 
FJS=40RKE=32THENM=M-END (4) :HH$=L$: 
FE=64:6G0T0Z6ã0  ELSEIFJS=S0REkKB=64TH 
ENM=M+REND (4) : HH$=E$: FE=65:60T0260 
ELSEIFJS=50RFKB=1Zº8THENEDO 
25540 TFJS=00FkE=0OTHENSE=USE (237) 2:M= 
M+HEND(3)—Z 
Jo FEINTEJI, ES: : IFME=STHENM=S:HH$ 


=-&:PFE=63ELSEIFM>=43THENM=43: HH$=L 
&:PE=63 
a IFL:.=OTHENL=0ELSEIFL >=6THENL=6 
O JJ=Lx64+M:;PRINTEJIJ, HH&; : SE=USE 
(276) 1 IFHV= LTHENRETURNELSEZ30 
aP0O B=E-l:BQi=JJ+iss:AZ=AL+(-L*2+13 
J*PER:FORZ=01TOAZSTEPPE:PRINTeEZ,CHE 
$& (140): :SE=USE (Z+200) : IFZ>:576THENFP 
RIR o RELA 
3500 NEXT:PRINTEAZ," * "5:FORTD=ITO 
L:SE=USE (AZ*3): NEXT: PERINTEAS, VA 
2 IFAEZ=SPTHENPT=ET+iOO:WNI= NI+1: sos 
UBE440 :JGOTO41i0 ELSEIFAZ=SF+1OFAZ 
=S5P—-ITHENFT=PT+30:GOSUE440 | :GOSUE 
3970  «GOSUB340 
310 IFHH$=L STHENSF=S5F+END(Z):5SB=13 
1: GOTOS30  ELSEIFHH$=ESTHENSP=SP-R 
ND(Z):5SB=139:60T0330  ELSEIFHH$=F$ 
THENPRINTESE,"—-!. :SP=5F+r64 
340 IFSP>1LO0OTHENSF=SP-128 
40 PRINTOSP-2,"--"CHRS$ (SB) "==". 26 
OTõOZ30 
340 PRINTeS7V6,::FORX=6TOLSTEP-LIFE 
INTSTRING$ (X, S2)STEING$ (62-X*2, "=! 
JSTRING$(X, 32) 2NEXT: PRINTSTRINGS (6 
2,41) 5 RETURN 
350 SX=14+END(39):GOSUB340 1SYy=8+ 
RND (7) :GOSUB340 :SP=S5X+Syx64:HV=1i 
:FORTD=1T04:GOSUE3S40  :SE=USE(27O) 
SL=L+END(3)-2: GOSUB2Z60  :FORDT=ITO 
407:NEXT:NEXT:HV=O 
260 PRINTESP,CHE$ (140); : SE=USE (999 
7):FORTD=1 TO2Z00:NEXT:PRINTESE,CHES 
(133): : SE=USE (6666): FDETD=1TO2Z00:N 
EXTIFRINTESP,CHES$ (139); SE=USE (333 


Missão Submarino || 


3): FORTD=1TOZ00:NEXT:HT=0:B=5:FETU 
EN 

370 FORZ=SETOJJ+64STEP-PR:FRINTEZ, 
CHES$ (145) ; 2SE=USR(200+2) 2 IFZ2576TH 
ENFEINTEZ,"-"; ELSEFEINTEZ, " Ea 

320 NEXT:PRINTESP,CHES (SE) "==>" ,1F 
0RSS=1T03:FORTD=ITOS:SE=USE (506) :N 
EXT:NEXT:GOSUE430 

390 FEINTEJJ,X1$::PRINTEJI+64, XTE: 
:FORTD=1T0300:NEXT:GOSUB430 s:HT=H 
T+1:IFHT<2THENFEINTEJI, HH$; RETURN 
ELSEPRINTEJJ+64, X3$; :PRINTEJ], X2S: 
:IFJJ>64THENPRINTEJI-64,X15: 

400 FORTD=1TOLSO:SE=USR (506) NEXT: 
GOSUB430 :PEINTEZ74,"0 INIMIGO VE 
NCEU ESTA JOGADA"; :PRINTESF-64, CHE 
$& (176): :PRINTESP-3,5E$;:FORTD=ITOSZ 
000:NEXT:CLS:NHI=0:PT=0:GOTOZ20 

410 GOSUE340 :PEINTESP-6S5,S1S; PE 
INTESF-1,S2$::FORSG=53333T03600STER 
30:SE=USF (SG) :NEXT:PRINTESP-1,S18; 


: IFSF>640THENPEINTESF-65,"--—" ELS 
EPRINTESF-65," "; 

4a FORTD=ÍTOS OO: NEXT:FORTD=1TOS:6 
OSUE340  :NEXT:IFHIZ4THENSOO ELSE 


PRINTESP-1,"-—— 
SO 

430 PRINTEO,: :FORTD=iTO9:PRINTCHES 
(254) 3 NEXT: RETURN 

440 PRINTGO,"PONTOS"PT;:PRINTE4S,N 
I"AFUNDADO(S)'"; RETURN 

4S0 CLS:GOSUB340 :PRINTELO,TI$:GO 
SUE3SO  :FORSG=3333T03400STEP20:PE 
INTESP+END (3)-2,"0''; :SE=USE (SG): NE 
XT:CLS:PRINTEL6, TIS:PRINTEÍ9Z, "EST 
E E“ O SUBMARINO “SB$:PRINT"IN 
IMIGO" 

460 :PRINTTRE(SO)L$:PRINTESS4, "USE 
AS SETAS FARA MOVIMENTAR SEU HELI 
COPTERO":PRINT:PEINT"E A BAREA DE 
ESPACO F/ ATIRAR":PREINT:PRINT:PRIN 
T:PRINTTQE(16)S1$ 

470 FRINT"AFUNDANDO CINCO "S2s" « 
OU FAZENDO 600 PONTOS) VOCE EEN 
CE O JOGO"; 

480 E$=INEEY$: IFE$=""THEN490 JELS 
ERETURN 

490 PRINTE972,"PRESSIONE QUALQUEF 
TECLA P/CONTINUAR'"; :SE=USR (3000) :F 
ORD=1TOLO:NEXT:PEINTE972,! 


"Ss sGUBUBSIO  BUT0Z 


"s:6UT 
0480 
300 CLS:PRINTESO, TI$&:GOSUBS40 PR 
INTeG193,L&$" VOCE AFUNDOU"WI"SUBMAR 
INOS":PERINTeE402,"E SEU PLACAR Er"P 
T"PONTOS "E$IPRINTE974,"PRESSIONE 
ENTER: P/ NOVA EBONTALHA": 
510 IFINKEY&<>CHERS$ (13) THENIZO  ELS 
EWI=0:PT=0:CLS:GOTOZE0 
“20 FORX=4TOLO:SE=USE(X):NEXT:GOTO 
a LO 
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remo ear, 


o ct 


Dando sequência a nosso 
Curso de Basic, nesta lição 
veremos os comandos: 
GOTO e INPUT. 


Preparados? Então, vamos lá! 


Ce e o RICE TV | TO e a o ia ai á 


a 1) assa DA 


— parasse 


TREE pira aii 4 


Eiirtambaso pio sedia a 
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Curso de Basic 
Lição III 


Marilena Occhini Siviero 


as lições anteriores vimos como 
determinar variáveis e como escre- 
=“ ver programas. Os comandos: 
PRINT, LET (opcional), CLS, NEW: 
LIST, RUN e END já são nossos conhe- 
cidos. Também nas lições passadas 
aprendemos que um programa executa 
as instruções de acordo com a ordem dos 
números das linhas. Hoje nós vamos 
conhecer o comando GOTO, que desvia 
a ordem de execução dos programas. 
Exemplo: 


I0 CLS 
20 PRINT “COMPUTADOR” 
30 GOTO 20 


Localizado na linha 30, o comando 
GOTO 20 fará com que o programa volte 
para a linha 20 e a execute novamente. 
Qual a sequência do programa” Ele exe- 
cutará a linha 20 seguida da linha 30 
sucessivamente. Por este motivo, este 
programa não necessita da instrução 
END, pois ele não tem fim. Para parar- 
mos o programa vamos necessitar da 





tecla BREAK. A mensagem que o com- 
putador nos mostrará após apertarmos 
esta tecla, indicará que o programa foi 
interrompido e que o micro está disponi- 
vel para receber novos comandos. Tente 
digitar este programa: 


10 CLS 

20 PRINT “LINHA 20” 
30 PRINT “LINHA 30” 
40 GOTO 60 

50 PRINT “LINHA 50” 
60 PRINT “LINHA 60” 
70 END 


Na medida em que executarmos este 
programa vamos descobrir que o coman- 


do GOTO é utilizado não só para retor-. 


nar mas também para avançar a execu- 
ção normal de um programa. Se escre- 
vermos novamente o primeiro programa 
que demos como exemplo, modificando 
a linha 20 para: 


20 PRINT “COMPUTADOR”; 


e a Sha 


o ponto e vírgula colocado no final da 
instrução faz com que a palavra COM- 
PUTADOR seja escrita ao lado da outra. 


Agora vamos a um pequeno teste: 
responda sem usar o computador: O que 
aconteceria se ao invés de ponto e vírgula 
tivéssemos apenas vírgula? Outra pergun- 
ta: Como poderíamos mostrar os números 
em seqiiência, utilizando o comando GO- 
TO (1,2:35..0)? 


Vamos agora a um exercício que se 
utiliza de um programa: execute-o e veja 
o que acontece: 


10 CLS 

20 A=0 

30 PRINT A 
40 A=AA4-l 
50 GOTO 30 


Preste atenção nas linhas 30 e 50. 
Na primeira passagem o número O é 
impresso na tela (instrução 30) e depois é 
somado 1 à variável A (instrução 40) 
para o programa voltar à instrução 30. 
Imprimindo 1 (o novo valor da variável 
A), somando mais 1, voltando à linha 30, 
e assim por diante, você poderá chegar 
aos números solicitados acima, em nosso 
exercício. 


Comando INPUT 


Vamos supor o seguinte problema: 
como calcular a área de diversos quadra- 
dos? Para isso podemos utilizar o progra- 
ma abaixo: 

I0 CLS 

20 A=100 

30 PRINT 

“A ÁREA DE UM QUADRADO DE 
LADO: As = “AFA 

40 END 


O inconveniente neste programa é 
que para cada quadrado teremos de mu- 
dar a linha 20, colocando novos valores 
na variável A. Exemplo: 


20 A=120 
RUN 


Neste caso o computador responderá: 


A ÁREA DE UM QUADRADO 
DE LADO 120=14400 


Para o exemplo: 

20 A=80 

RUN 

O computador responderá: 


A ÁREA DE UM QUADRADO 
DE LADO 80--6400 


E assim por diante. 


Para evitar que alteremos indefini- 
damente uma linha de programação exis- 
te o comando INPUT. Para utilizá-lo é 
necessário indicar uma variável: 


INPUT A (variável numérica) 
INPUT BS$ (variável alfanumérica) 


Vamos a um exemplo? Execute o 
seguinte programa (não esqueça do co- 
mando NEW). 


10 CLS 

20 INPUT A 

30 PRINT “O VALOR DA VARIÁVEL 
A=":A 

40 END 


Após digitar RUN, você perceberá 
que o computador limpou a tela, através 
do comando CLS na linha 10, e imprimiu 
um ponto de interrogação seguido do 
cursor: 


(e 
Isto significa que o micro executou a 
instrução INPUT e aguarda que você 
digite o conteúdo que será gravado na 
variável A. Então, o que significa o 
comando INPUT? Ele permite inserir 
valores nas variáveis durante a execução 
de um programa. Voltando a nosso 
exempló, entre com um número logo 
após o sinal do cursor e tecle ENTER. 
Você notará que o micro continua a 
executar o programa e que a variável A 
possui o valor que você lhe designou. 

É importante notar que se quiser- 
mos colocar um dado alfanumérico 
(string) através do comando INPUT, 
devemos utilizar uma variável alfanumé- 
rica: 


INPUT A$ 
INPUT B1$ 


No programa: 


10 CES 

20 INPUT AS 

30 PRINT A$ 

40 GOTO 20 

O computador sempre retorna ao coman- 
do INPUT, fazendo aparecer? — e 
aguardando um novo valor para AS. 
Experimente executar este programa, 
não esquecendo os comandos ENTER e 
BREAK. 


Ágora, que tal uma substituição na 
linha 207? Modifique-a para: 


20 INPUT “QUAL O SEU NOME”; 
AS 


Ao executar o programa, na tela será 
exibida a mensagem: 
QUAL O SEU NOME? 


Desta forma, através do comando 
INPUT, podemos programar mensagens 


na tela para que elas nos guiem na 





entrada de dados, evitando que ocorram 
erros do tipo: 


10 CLS 

20 INPUT A 
30 PRINT A 
40 END 
RUN 

7? JOAO 


Neste caso, na tela será exibida a mensa- 
gem: ERRO TYPE MISMATCH, pois 
aqui só poderíamos ter digitado números, 
já que a variável A é numérica. 


Exercícios 


1 - Calcule a área de um quadrado 
qualquer. 

2 - Liste na tela os números pares a 
partir do zero. 

3 - Aceite a digitação de um nome que 
seja listado na linha debaixo. 


Respostas 


QNI OF 

$v INIdd 0€ 

$v *, SOU nas DNÔ,, INdHNI OZ 
S 120 E 


0€ OLOD 05 
CtV=v' 0V 
V INIYd 0€ 

0—vy 0c 
S 190! SE 


aNa Oy 
VeVce OE 
v INdNI 0€ 
Sid OL cl. 


BASIC 


Cursos para 
crianças e adultos. 
Crianças: tarde e noite 
Adultos: noite. 
Serão utilizados 
Microcomputadores CP 500 
da Prológica com 
1 microcomputador 
para cada 2 alunos. 
Duração: 40 horas. 
No final do curso 
serão dados 
diplomas de frequência. 






INSCRIÇÕES ABERTAS 
INSTITUTO Colaboração 
ITALIANO cia 
EUGÊNIO En 
MONTALE HH 
Av Angélica, ese PROLOGICA 


Fone: 66.9199 


Programa 
do 


Usuárl 
SUaTIo 
Imagine que o seu maior inimigo 
colocou uma bomba em sua 
casa. Você terá que desarmá-la 
e, se tudo der errado, fugir em 
dez segundos. A bomba possui 
três fios de ligação: um falso, 
outro que a desarma e o terceiro 
que a detona. As opções 
aparecem no vídeo: 1, 2, 3. 
Este programa é uma 
colaboração de nosso leitor 
Edmundo Macruz, aluno do 





terceiro ano de Processamento 
de Dados do Colégio Horácio 
Bento, São Paulo. 





DE O ia eo SR a Rad 


Do CIEIEIE IEEE DEDE DEE IE SETE DE IEEE IE IE ICI EEE IEEE EE XUXR UXRKR XXX 

Eai ME USUARIO: DESAREME À BOMBA * 160 FRINTTHECIS) "XXXXXXX KR 

dee [a É FROLOGICH x XXXX XXXX XXXX XAKXT 

4% LE S00G7 LO * 170 PRINTTHECIS) XXX X XXXX 

E DE de DS E RE AS XXXX XXYXYX OO! 

10 CLS:GUTOEO lão FPRINTTOER(CILMD) CAXX X XXXXXX 
Ss CLOPPRINT'O FIQ=CaNgC-E FHLSU” XXXXXX RXXX XXXX" 

Zo FRINT:FPRINTEFRINTTARCIO) "VOCE E 190 FEINTTAR (ILS) !XXXXXXX XILXEXK 
UM FERITO EM DESARMAR BOMBAS" KXXAXIN XXXX XXX 


zo PRINTIFRINTTOE(13)"TENTE DESATI 
VAR ESTA, SENDO?" 
Ho PRINT:PEINTTQE(1S)"....1 FIO FA 


Loc 
So PRINTIPRINTTAB(IS)"....À FIO DE 
TONA” 


50 PRINTIFRINTTAR(S)"....1 FIO DE 

SARMA" 

70 PRINTIPEINT:SPRINT: INFUT"ESCOLHA 
O FIO (0-3)"4N 

so IFNSODEN:3THENTO 

90 CLS 

100 EANDOM 

110 E=END(3):0N E GOTO 120,270, 320 
120 PRINTIPRINT:PEINTIFRINTTAR(2O) 
“VOCE TEM 10 SEGUNDOS" :PRINTTAR(ZO 
"PARA SE AFASTAR  DO":PRINTTAE(E 
=)" COMPUTADOR": FORM=15360TO1L6303: 
FOEEM, L9L:NEXTM 

130 FRINT:PRINT 


140 FRINTTARC(LS) PXXXAKXA KXXXX 
XXXX XXXX XXXX” 
150 FRINTTARC(ILS) "XXX X XXAX 
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200 PRINTISFEINTTOR (So) "VOCÊ NHO SA 

LVOU NEM” 

210 PRINTEPEILNTTOR(CSO)"A SUA FROPE 
IA VIDA." 

220 PEINTIFPRINTE:E INFUT'DESEJA TENTA 

E NOVAMENTE <5/N+!s TE 

2380 IF Tê="5" THEN LOELSEEND 

260 PRINT:PEINTIPRINTEFRINT 

270 PRINTºSPRINTTAB(ZO)"UFAM. cacau 
ns NES 1) 

2280 PREINTIFEINTTHE(CRO)PVOCE DESATI 

VOU À BOMBA" 

290 PEINTSFPEINTIFRINTIPERINTTAR(ILS) 
xx CONGEOTULACÕES sx XII RIDE! 
300 PRINTIFPREINTESFRINT:INFUT'DESEJA 
CONTINUQR £“3/N2"45% 

310 IF 5$="5S" THEN LOELSE END 

320 PRINT:PRINTTAR(CZO)PESTE FIO ER 

A FALSO! 

350 FPRINT:IFRINTTAR (20) TENTE NOVAM 

ENTE 

340 INFUT"DIG. «“C> F/CONTINUAR!: CS 

390 IF C&="€" THEN Jô ELSE END 


DD 


ST io: 


“Sistema 
Operacional 


Neste artigo final sobre o 
DOS 500, Luiz Antonio 


ntes de criar um arquivo, você 

deve perguntar ao DOS 500 (co- 

mando DIR) quantos blocos li- 
vres no disco você terá para gravá-lo. Na 
figura 1, por exemplo, existem 87 blocos 
livres, sendo que cada um equivale a três 
setores. Fazendo uma conta simples, 
você poderá calcular quantos blocos 
ocupará o seu arquivo (para fazer este 
cálculo, consulte o artigo da GP nº 6). Se 
o seu arquivo couber nos blocos livres 
teoricamente você poderá gravá-lo. 


Para testar se o espaço livre é conti- 
nuo, crie o arquivo (comando CREA- 
TE). Se ele necessitar mais de 13 exten- 
sões aparecerá uma mensagem de erro. 
Você ainda poderá saber se o espaço é 
contínuo ou não, através do comando 
FREE, que implementará na tela do seu 
micro o mapeamento do espaço do dis- 
co. A figura 2 apresenta um mapa gerado 
pelo comando FREE onde os espaços 
livres são representados por pontos e os 


ocupados pela letra X. Cada caracter 
equivale a um bloco e cada grupo de seis 
caracteres a uma trilha. 


As Extensões 


Quando você iniciar a gravação do 
seu arquivo, o DOS enviará as informa- 
ções para os primeiros lugares vagos do 
disco (os pontos representados na fig. 2). 
Se ele não couber na primeira dessas 
regiões, numa sequência completa, serão 
criadas uma ou mais extensões desse 
arquivo, que poderão chegar ao máximo 
de treze. Se o seu arquivo necessitar de 
mais de treze extensões, você terá de lhe 
reservar espaço em outro disquete. 
Quando você for fazer a transferência, 
não esqueça de usar o comando COPY, 
indicando ao DOS a região alocada no 
novo disquete. Exemplo: para transferir 
o seu arquivo do Drive :O0 para o Dri- 
ve :l, utilize o seguinte comando; 


COPY NOMARQ/DAT:0,:1 


Fig. | 
Borba responde a uma DESESO | TI 

questão que os usuários Arquivo Ptrib EP ag xt 

2) a TALLÍV CSS AXO E) 3 

dos CP 300 e CP 500 têm egg oe 
formulado NEXO Ê 3 i 09/00) 
constantemente: por que 3/0 em NRO ô R ! CO /00 
a BEFSIS/CHD NaO E een ra] Lit 
e ode tag COTELOGD/TIT NO da age Mt! 
arquivo com mais de treze VGTEM/CTL O MÉy0 00/00 
extensões? aLR35/LTL NRO D0/00 


SERLb/CIL NEXO 

S0r: ada N+XO 

SCRI7/CIL N$XO 

GLmLy/ CT NERO 

SCric/Ll N$XO 

FELO/C N+XO 

SERIES NEI 

Sd SAL NEXO 

TEXSO/CID MaXO 

] Nato 

NEXO 

Nexo 

PS/CIL NEXO 
07 Blocos Livres 


CO/00 
CO/00 


CO/00 


go 


l 
l 
l 
l 


00/00 
SO/00 
0/00) 
DO/CO 
So/00 
DO/DO 
00/00) 
B0/00 
20/00 
O/0) 


pts 
n CO bs Di id EM LC 
+ po O tr EM Em t+ NM UN um 


++ 
1 
- E to po ta po 


nm pa im 
pa to pa 


E.) 





Mapa de Espaco 
Drive: O 


KRXKXA 


maes vtusa tUUUL canta meter minbs UUDUL GUtia mois cedro Lotus renas anama cat eum venia teta matt 


AXKAKAK 


Trl * 
DO-- DA a 


DST 


ODE E 
jú-ltas 


Ros a Rr do 
2ú-Bás 

= 0a 
30-34: 


posa -y 
Ea (| 8 
tu cl as 4” 


AXXAAX RRARKRAX 
E 


RRXAXX 
AARAXA 


XXXXX% 


XXX 


RXAKXX 
RARKAR 


4 “e 4 
BANANA 


XXXXXX 
XARAXA 


RRAXXRA 
bDiretr 
KRAXXAX 
RAXAXA 
REAR 


AAXR uma 
aaa a AÃ 
AXKKAXK 
XXXXAXX 
RXXXXX 
XKRXXXX 
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(da | dá Li 4] 


RS OD Uma md CT ii O restar dy 


= esmero! tp 


tomo. 


Próxima 
Letra 





oje em dia, a educação 
passa por uma nova fase: as 
DF | crianças têm à disposição 





microcomputadores que fazem da 
aprendizagem uma diversão. 
Tendo por base esta idéia, a 
Prológica desenvolveu o jogo 
educativo que publicamos neste 
espaço. 


Após o programa ter sido 
totalmente digitado, tecle RUN e 
pressione ENTER. Na tela 
aparecerá a mensagem: 


Em seguida, o vídeo mostrará 
um rosto e algumas letras fora da 
ordem alfabética. A criança deverá 
digitar, então, a letra que sucede, 
na ordem lógica, a última letra 
exibida no vídeo. Quando a opção 
da criança for correta, ela receberá 
um sorriso acrescido da 
mensagem: ''Muito bem!”*. Se a 
opção for incorreta, a face disposta 
no vídeo se tornará triste e a 
mensagem exibida será: 
“Lamentável!””. Neste jogo, os 
SOITISOS compensam as decepções 


A PROXIMA LETRA e as crianças aprenderão o 
UM JOGO EDUCACIONAL alfabeto, divertindo-se. 
Modelos: CP 300/CP 500 48kb RAM 
1D ERTEEKKEXAKKAKAKKAKAKAXKANXA KA 358 P=135: FORX=1 TO 7z:PRINTeP, H$<( 6,176,176,176-:176-152-32,/ 32» 
2a “x PROGRAMA EDUCACIONAL ig X) 3: :PRINTESx64+38, "MUITO BEEMMMM | 32,32,32, 154,32 
30 “x PROLOGICA * DITIIOs sP=P+64:NEXT X s26 DATA 32, 130,137, 164, 176-32+136 
4a “* CP309/cr506 ” 366 RETURN 152,32,32,32132,82,32, 160,17 


SO RR IE IE DEDE IODO DEDE DEDE MIO ODE DE O DEE EX 

68 CLS:PRINTG64x5+17,STRING$(25+13 
13 

78 PRINTO64x6+21," A PROXIMA LETRA 
“PRINT 

88 PRINT TAE(20)"UM JOGO EDUCACION 

AL “=FRINT 

98 PRINTTAE(17)STRING$(25,131) 

109 * 

118 GOTO 410 

128 * 

138 C$ = " RM OM O MM 
XX" 2E$ = CHR$(191) 

148 CLS :GOSUE 370 

158 N = RND(26):N=N+64 


168 M$ = CHR$(N):GOSUE 280 

178 0$ = CHR$(N):GOSUE <86 

186 P$ = CHR$(N):GOSUE 280 

198 PRINT 4700," EE: 

200 PRINTTRE(1B) USING C$;M$,0$-PS 
1E$ 

210 H$ = INKEY$:IF H$ = "" GOTO Zi 
g 

coB PRINT 700," “s 


y 
238 PRINTTRE(IO) USING C$;M$,0$-P$ 


240 IF Hg = CHR$(N) GOSUE 340 sEL 
SE GOSUE LOG 

258 FOR X = 1 TO 1506:NEXT X 

2Zég GOTO 120 

278 END 

280 IF N = 98 THEN N=N-25:ELSE N=N 
+1 

298 RETURN 

386 ” SUE-ROTINAS DAS FACES 

318 “ ESTA SUE ROTINA E” DESIGNADA 
PARA DESENHAR A FACE PARA O FROGR 

AMA EDUCACIONAL 

328 * 

338 * 

348 * FACE FELIZ 


- 
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378 * FACE NATURAL 

388 P=135:FORX=1 TO Z2:PRINT GP,N$C 

X); :PRINTEGSx64+360,"QUAL A SUA OFCA 

O PPP sP=P+6UANEXTX 

390 RETURN 

uma * FACE TRISTE 

418 P = 135 :FOR X=1t TO Z:PRINTeF, 

S$(X); 2PRINT" LAMENTAVELL 1111 
“EsP=P+6U4INEXT X 

420 RETURN 

4360 “ DATA PARA FACES 

L4L4G DATA 32,32,32,176, 140, 140,131, 

131,131,131,131,131,131,140, 

148,176,3Z2,32,3Z,32,32,184,131,32» 

32, 144,160,32,32,32,38,3 o 14 

4, 160,32,32,131, 164, 144,32: 168, 149 

1301327507 130,129,3G vSardors 

2,32, 130,129,32 92, Do, 3647 169, SE 

450 DATA 149,32,32,32,320,3273Z-34» 

136,176,132,98:32/:32,38,/3673 

2132732, 149,138,144,32,32,131,7164» 

144,32:32:+34,d2,3&- 160,1 587 1 

31,32,32,32,154,32,32,130,137,164, 

176,176,1380,131,131» 131,131» 

131,129,32,1606,176,140,131,32,3& 

460 DATA 32,32,32,32,320,131-131,13 

1, 149,140,140,134,131,131,13 

1,32,32,32,:38, 34 

470 DATA 32,32,92,176, 140, 140,131> 

131,131,131,131,131,131,148, 

148,176,32,36:138,3% 

4988 DATA 32.194,131,32,32-160, 144, 

32,32,320,32,52, 160, 144, 34,3G 

1131, 164, 144, 3Z 

496 DATA 168,129,32,3G 

132132, 807 329300 32730» 

324,169,3€ 

Sa8 DATA 149,32,32,32-34 

136:143,132,32,138,32,73E» 

àrdos dar 149 

518 DATA 138,144,32,32,32,30,32+17 


“ 


6 i4B0,131,36-34 


538 DATA 32,32,32,32,32,131,131,13 
1, 140,140, 146, 134, 131.131,13 
1,32,38,36,/367 34 

546 DATA 32,32,52,176, 140, 140,131» 
131,131,131,131,131,131-140, 
146,176,32,32,32,3g 

556 DATA 32, 184,131,32,32,13G,164» 
d2rSBrdardardarlSErlóuy, TE» DE 


1131, 164, 144,32 


566 DATA 168,129,32,92,32:32,32,3E 
150 ,32,30,30,D0,D0,7 307 D6r DE 


Sã, 169,30 

5720 DATA 149,3G 
136, 131,132,32» 
&r das Sa» 149 

s88 DATA 138,144,32,32,32,32,176,1 
SE 140, 140, 140, 140,164,176,3 
rdardar Sar iS4, JE 

598 DATA 32,130,137,164:176,131,3E 
rdardardardardurdardariósd, 17 

6, 140,131,32-32 

688 DATA 32,32,32,32r32,131,131,13 
1, 146,140,140,134,131,131,13 
1,32,32,382,36,5E 

618 *? 

628 CLEAR 190D:DIM A(Z0),H$(7)- NS 
7)18$8(7) 

630 FOR X = 1 TO Z:FORY=1 TO ca 
EAD AsH$S(X)=H$(X)+EHRSCADENEXTYINE 
XTX 

648 FOR X = 1 TO Z:FORY =1 TO ze: 


13673 
32 r dá 


READ BA: NECXI=NS(XI+HCHRSEÇA) ENEXTY 

NEXTX 

658 FOR X = 1 TO Z:zFORY =14 TO zo: 
READ P:S$(X)=S$(XI+CHR$ECASENEXTY E 
NEXTX 

668 GOTO 126 


O dd 
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Programação BASIC 
a 


“dprerraççãos 


asa 


Pi cosestasaçãa 















' 
| 
| DO / 
RL 
l 
1 
prt 
o nne nuere Tm f 
UUo MUCGICIL U 
. MACATO NANA A oORTmmnaa a 
A TDT Jarra 3 A E "o na + 
AFLIGLALUOES FARA U SEU IK5-B0 - 
=— [a a Gus mo str dm o qu pru Pa pr CT — — 
Fará Ward udsntatm ms , CTC Va e me 4 pa 6] 
VUASdE JIU JU EM FÊ Pe to) | t, Volumes 1ezZ 
= ard Paroanhnan , NAS est nn OQ A CTC 
Lg [ojrigo boo WS T=) =) 0070) q Win é 0 JRR (O [O (6 RR o já BAS 
| : 
i “7 deze 
j A a RS 
Tr . CT on nNPER 
: ” = E NT R Va 
ES EAD E UA A bd as mm PE Soa 
" ao ; gal "ra — IT 3 o 
mesmo aitera OS. r Dicrimulos(omieio) 
e re dc ea A CO TESE Na rentes TT nara c oe dn CP ano Idea 
escritos em BASIC Níveis I e II, para o cas do CP 300. Idea 
TRC. MN an o (DPralA + nnhanas 
E ado do BO) s [Frológica, Lis querem conhecer os 1 
' mac, Ui, j eJxs 
" 
& “ 
— a | ==s TE Ez = == E == HRS 





| ] ADQUIRA-OS NA SUA LIVRARIA DE CONFIANÇA OU 
bm SEGUINDO AS INSTRUÇÕES ABAIXO: 


] * 
À É E] 
à ho PRE] 


BASIC PARA CRIANCAS =— Vol 1. o 
BASIC PARA CRIANÇAS — Vol 25. 
APLICAÇÕES P/O SEU TRS 80 — Vol. 1....... coco 
E SAPLIGAÇÕES:P/0. SEU TRS 80 VOL 2 cs nero 
SUGESTÕES P/O PROGRAMADOR BASIC.............. 
[IEL] EêMBÁICO s 
| FS MANUAEDO CP200 = A na S 
E [ EF MANDAEDOCP300: se FR 

MANUAL DO OP500 2...» = co an e 


Cr$ 11.900 
Cr$ 14.600 
Cr$ 9.900 
Cr$ 11.900 
Cr$ 9.300 
Cr$ 11.500 
Cr$ 9.300 
Cr$ 9.300 
Cr$ 10.700 








| [JF MANUADODOSSO SS. Cr$ 9.300 
EE ATENÇÃO: PREÇOS VÁLIDOS POR 
RR TEMPO LIMITADO 


eesseanananntara 









VC go Tia So So = 
“rannalmonta 
sfaduaimente, 









at 
E. a o. 
hi » o 
FE H ] f 
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' : , 
' id | W ” 
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Ss «AB es Tiga sp" Wma, + ” vm. 
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OD ARHA nTas , 

o j .v , 5 KR 
É . 1 

1) JM VI! te 
têârnirae a 

LCCHICAS e 
amarinroc avna. 
niatúuures expe 





PAGE 
A(O) | 


E , TEA Ne. a 
A handa tas a mata ih ao 4 Palha o = 43 - rY 
Aborda em detalhes o que e um vIStLEME 





3 Epa A | ESA SE EE 4 "D/ 
Uperacional, como funciona o Lt 





LEO 8 a) 
3 a Pi 
Ta tis 
anda be) a) 
E: 7 Es Eae TR [ 
| | | 
| k E us E. ha 4 — 1 y L : 





Em anexo estou remetendo a importância de CrS 
em Cheque Nº E c/Banco == =ssou 
Vale Postal Nº “(enviar à Agência Central SP) 
para pagamento do/s livro/s assinalados ao lado, que me será/ão 
remetido/s pelo correio. Ra 
Cheque ou Vale Postal, pagável em São Paulo, a favor de:- 
EDITELE Editora Técnica Eletrônica Ltda. 


Caixa Postal 30.141 — 01000 — São Paulo — SP 


re 

















Nome Principal... E ES Essa 
Endereço = O EE 
Bairro E 











Gidado= === Estado. 





(Se não quiser destacar esta folha pode enviar xerox com os dados completos) 





LA WMM == E Ra õ— o a 
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= sta é uma corrida 
diferente. Aqui, os 
jóqueis vão precisar de 





spa aten 
tico o ] 


um raciocínio rápido e 
inteligência. Atenção: vai ser 
dada a largada! 


Este programa permite que duas 
pessoas joguem 
simultaneamente. No início do 
jogo, a tela do seu micro exibirá 








dois cavalos em posição de 
largada. Para movê-los, você e 
seu adversário terão que 
realizar, com a maior rapidez 
possível, as quatro operações 
aritméticas: adição, subtração, 
multiplicação e divisão. Ganha 
quem chegar primeiro, ou seja: 
aquele que acertar o maior 
número de questões elaboradas 
pelo micro. 








a UM 


Corrida Inteligente 


Este programa foi listado numa impressora P 500. Por este motivo, faça as seguintes 


alterações nas linhas: 


420 - Tecla W - 32 vezes (entre as aspas) 
32 vezes (entre as aspas) 


510 - Tecla 3 - 9 vezes (entre as aspas), quando em modo gráfico. 


1000 - Tecla SP - 1 vez (no local correspondente a FÉ), quando em mcdo gráfico. 


LO CRIEI RICE SIL 


A O a 7 CORRIDA INTELIGENTE * 
30 “+ PROLOGICA * 
40 “x CF-Z00 + 
DO CIPA SE TETEICIE ICI PII AE 


6w GOTO 150 

70 FOR E=D(I) TO O STEF -1 

SO PRINT AT 0,30;ky" * 

90 LET EBS=INKEYS 

100 TF E$<"0" OR B$>"9" THEN NEXT 
K 
lió LET Féá=E$+ES 

130 FRINT AT 2,253;Es 


130 NEXT EK 
140 ZETUREN 
iJ3o PRINT AT 10,5:"CORRIDA DE CAVA 
ROS Ep! TABS; Ii DasSS=DDaTEzRRDaDDas 


=";AT 21,6:"DESEJA INSTRUCOES 2?" 

160 IF INKEY$8="N" THEN GOTO 330 

170 IF INKEY$:>"S" THEN GOTO 160 
S0 CLS 

190 PRINT AT 0,1;"ESTE JOGO FODE S 

ER DISPUTADO";TRE 6;"POR ATE 3 J06 

ADORES. 

200 PRINT ,, TRE O0;"CADA JOGADOR DE 

VERA RESOLVER UMA";TAB 6; "DPERACAO 
MATEMATICA. " 

210 PRINT ,;TRB 15"SE ACERTAR, SEU 
CAVALO ANDARA"; TOR 0;"DOIS PASSOS 
-. SE ERRAR, O CAVALO"STRE 9:"FICAR 
A PARADO.” 

220 PRINT ,, TAB O;"VENCERA QUEM CH 
EGAR PRIMEIRO AD";TAR 9;"FIM DA PI 
STA." 

230 PRINT ,, TRE 2:"0 JOGADOR TERA 

UM LIMITE DE“;TAE 3;“TEMPO PARA DA 
E A RESPOSTA." 

240 PRINT ,, TRE Os"SE ACABAR O TEM 
FO PERDERA A VEZ." 

250 PRINT ,, TRE O;"NO FINAL SERA M 
OSTRADO O"; TAB 8;"APROVEITAMENTO. 

260 PRINT AT 21,4;"TECLE <ENTER> P 
ARA JOGAR" 

270 IF INKEY$<:CHE$S 118 THEN GOTO 
270 

250 GOTO 330 

290 FOR A=0 TO 7 

300 FEINT AT A,Os" 


310 NEXT A 
320 RETURN 
330 DIM N(3) 
340 DIM E(3) 
350 DIM N$(3,8) 
360 DIM D(3) 
370 DIM W$(3,1) 
380 DIM C(3) 
390 DIM P(3) 
400 DIM E(3) 
410 GOSUB 1150 
420 PRINT AT 8,0" 32 DESSE CARACT 
ER "sAT 21,05" 32 DESSE CARACTE 
Ro ai! 
430 LET E(t)=9 
440 LET E(2)=13 
450 LET E(3)=17 
460 FOR I=1 TO NF 
470 GOSUB 980 
80 NEXT 1 
490 FOR I=1 TO NF 
500 GOSUE 290 


510 PRINT AT O,0;N$(I);AT 0,125" 9 
CARACTERES " 

520 LET R(I)=E(I)+1 

S30 IF W$(I)="M" THEN GOTO 690 

540 IF W$(1)="D" THEN GOTO 620 

550 IF W$(I)="A” THEN GOTO 740 

60 LET X=INT (ENDEN(I))+1 

S7O0 LET Y=INT (RENDENC(I))+1 

Seo IF Y>X THEN GOTO S60 

590 PRINT AT O,1IS-LEN STR$ X:;X; AT 
0,16;"-";ATO,21-LEN STR$ YsY 

600 LET Z=X-Y 

610 GOTO 790 

620 LET X=INT (REND&N(I))+1 

630 LET Y=INT (REND&N(I))+1 

640 IF X/Y«> INT (X/Y) THEN GOTO 6 

20 

650 LET Z=X/Y 

660 PRINT AT O,1IS-LEN STES$ X 
0,163"/";AT O,21-LEN STRS Y 

670 GOTO 790 

680 LET X=INT (END&N(I))+1 

690 LET Y=INT (RENDAN(I))+1 
700 IF Y>X THEN GOTO 690 

710 PRINT AT O,15-LEN STES X 
O, 165"X"3AT O,21-LEN STR$ Y 

720 LET Z=X*Y 

730 GOTO 790 

740 LET X=INT (END*N(I))+1 
750 LET Y=INT (REND&NC(I))+1 

750 IF Y>X THEN GOTO 740 

770 PRINT AT 0,1S-LEN STR$ X3X; AT 
0,16;"+"3AT O,Z1-LEN STR$ Ys5Y 

780 LET Z=X+Y 

790 PRINT AT 2,5:“DIGITE A RESPOST 
AR 

800 LET R$="" 

810 GOSUE 7Ó 

S20 IF K=-2 AND E$="" THEN PRINT A 
T 4,0;"BOBEOU, DANCOU. O TEMPO ACA 

BOU. 

830 IF K=-2 AND E$="" THEN GOTO 36 

9 

840 IF VAL R$<>Z THEN PRINT AT 4,1 

Os "VOCE ERROU." 

850 IF VAL E$=Z THEN GOTO 900 

860 PRINT AT 6,6:"0 CORRETO ERA 00 
00."s;AT 6,24-LEN STR$ 2Z;2 

870 FOR J=1 TO 50 

880 NEXT J 

890 GOTO 960 

900 PRINT AT 5,53;"MUITO BEM, CONTI 

NUE ASSIM." 

910 LET C(I)=C(I)+1 

920 FOR J=í TO 50 

930 NEXT J 

7404.GOSUB 980 

950 GOSUB 980 

960 NEXT I 

970 GOTO 490 


9890 PRINT AT E(I),P(I)s” Va TRE. do 
So o da Capao PCT) a! “sTAB FCI) 

990 LET P(I)=P(I)+i 

-1000 PRINT RE ES gt TAB 


PDS! 
5 “ Ea o 
L01SFIF P(I)<29 THEN RETURN 

1020 FOR J=1 TO 100 

1030 NEXT J 

1040 CLS 

1050 PRINT AT 2,7;"CAMPERO: "sNS( 
I) 

1060 PRINT AT 6,0s"NOME 
NTAS CORRETAS NOTA" 


FosTAD P(I)s"/RR"L TAB PÍ(I) 


PERGU 





1070 FOR I=1 TO NP 

1080 IF C(1)=0 THEN LET C(I)=1 
1090 LET Q=INT (C(I)/R(I)*100) 

1100 PRINT ,,N$(I):TRE 125R(D)sTAB 
22;C(I); TAB 29;0 

1110 NEXT I 

SIt20 PRINT AT 21,1:"TECLE <ENTER> 

PARA OUTRO J060" 

1130 IF INKEY$<>CHR$ 118 THEN GOTO 
1130 

1140 PUN 

1150 CLS 

1160 PRINT AT 11,2Z:"QUANTOS JOGADO 

FES (103) 92! 

1170 LET R$=INEEYS 

1180 IF E$:"1" OR R$5"3" THEN GOTO 
1170 

1190 LET NP=VAL E$ 

1200 FOR I=1 TO NF 

1210 CLS 

1220 PRINT AT 1,11:"JOGBADOR "4I;A 

T 4,6:"QUAL E O SEU NOME 2" 

1230 INPUT N$(T) 

1240 IF N$(I)="" THEN GOTO 1230 
1250 PRINT AT 7,2:"QUAL O TEMPO PA 

RA A RESPOSTA";TAE 1O;"(10 A 90) ? 


1260 INPUT D(I) 

1270 IF D(I)<10 OR D(I)>90 THEN GO 
TO 1Z60 

1230 PRINT AT 10,7:"QUAL A OPERADA 


O PrsAT L2,53!A ===. === ==. *ADICA 
O" TAB 53"S ——-——-— . —— >» SUBTRACAO" ; 

TAB S;"M ==——— > MULTIFLICACRO"; TAR 
SD -—-—===—— =. >» DIVISAO 


1290 LET WN$(I)=INEEYS 

1300 IF WN$(T)="A” OR NE(I)="S" OF 

N$(D="Mº OR WE(D)="D" THEN GOTO 1 

320 

1310 GOTO 1290 

1320 PRINT AT 18,5:"QUAL O NIVEL « 

ZiAs 

1330 LET RS=INKEY$ 

1340 IF R$4"1" OR R$>"3" THEN GOTO 
1330 

1350 IF R$="1" THEN LET N(D)= 19 


13650 IF R$="2'" THEN LET N(I)j= 99 
1370 IF R$="53" THEN LET N(1)=999 
1380 IF WN$(I)="M" AND Eó="1!"" THEN 
LET N(t1)=9 
1390 IF W$&(I)="M" AND E$="2" THEN 
LET N(I)j=49 
1400 IF W$(ID)="M" AND R$="3" THEN 
LET N(1)=99 
1410 NEXTI 

1420 CLS 

1430 PRINT AT 4,6; "BEM-VINDOS A CO 
RRICA": AT 6,11:;"DE CAVALOS" 

1440 IF NF=1i THEN PRINT AT 10, 64"0 
CORREDOR DE HOJE:" 

1450 IF NF>1 THEN FRINT AT 10,5:"0 
S CORREDORES DE HOJE:" 

1460 FOR I=1i TO NP 
1470 PRINT ,, TRE 1IS:NS(T) 

1430 NEXT I 
1490 PRINT AT 21,33" TECLE S<ENTER> 
FARA COMERCAR 
1500 IF INKEY$:2>CHES 118 THEN GOTO 
1300 
1510 CLS 

1320 RETURN 

“30 SAVE "CORRIDA DE CAVALOS II" 
1540 FUN 
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Os 
Segredos 
da 

PbOU 


grande segredo de como operar a 
impressora P 500, obtendo o máxi- 
mo de sua capacidade gráfica, está 
no completo conhecimento das funções 
de suas microchaves (dip-switch'”s), exis- 
tentes na parte inferior da máquina, além 
dos comandos acionados por software. 
Para simplificar sua utilização, estamos 
publicando uma série de dicas sobre os 
elementos fundamentais desse perifé- 
rico. 
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As microchaves existentes na parte 
inferior têm a seguinte configuração: 






Posição 2 
OPEN 


Posição | 
ON 


Na tabela abaixo descrevemos cada 
uma das microchaves da P 500 


LT: Seleciona o salto automático do vicote 





OPEN-ATIVO ON-INIBIDO 
Para o correto funcionamento desta função, antes de iniciar 
a operação deve-se informar à impressora onde é o início de 


uma nova página, posicionando-se o papel no topo da pagina 


e pressionando-se o botão RESET. 


uy. Seleciona a compressão do caracter 
OPEN-ATIVO ON-INIBIDO 


5. Seleciona a expansão do caracter 


iii 


OPEN-ATIVO ON-INIBIDO 


6. Seleciona a dimensão do Line Feed (salto de linha) 


meicramiiccilllJl— 


OPEN - 1/8" ON - 1/6" 


Seleciona o Line Feed automatico 


nd 


OPEN-INIBIDO ON-ATIVO 


= 
. 


8. Seleciona nível ativo do Acknowledge* 
OPEN-BAIXO OQN-ALTO 


3. Seleciona nível ativo do Busy* 





OPEN-ALTO ON-BATXO 
10. Seleciona nível ativo do Strobe* 
OPEN-BAIXO ON-ALTO 


Os sinais Strobe, Busy e Acknow- 
ledge são informações que o micro e a 
impressora trocam, indicando o recebi- 
mento e transmissão de dados entre si 
(veja diagrama da pág. 18 do Manual da 
Impressora). Para funcionamento com o 
CP 500 estes sinais devem ser: 

1 — Acknowledge — indiferente — o CP 

500 não usa este sinal. 

2 — Busy — nível baixo — chave O em 

ON. 

3 — Strobe — nível baixo — chave 10 em 

OPEN. 


Sempre, para que uma nova configura- 
ção seja aceita, é necessário desligar e 
voltar a ligar a P 500, após as alterações 
desejadas nas chaves. 

A tabela abaixo indica como deter- 
minados comandos são interpretados pe- 
la impressora. 








Comando Côdigo Descrição 

Hexa Decimal 
Bell 07H 7 Aciona o Beep da impressora 
LE DAH 10 Salto de Linha 





FF ACH 12 Salto de página 
CR ODH 13 Retorno de carro 
so OEH 14 Se recebido apôs o comando ESC 
(1BH ou 27 decimal) passa para 
a impressão no modo expandido. 
SI OFH 15 Se recebido apôs ESC, retorna 
do modo expandido 
DC3 13H 19 Se recebido após ESC, passa 
para o modo comprimido 
peu 14H 20 Se recebido apôs ESC, retorna 
do modo comprimido 
ESC LBH 27 Inicia alteração nas caracte- 
rísticas de operação da impres- 
sora. z 
FS 1CH 28 Se recebido após ESC, ajusta o 
salto de linha para 1/5" 
es 1DK 29 Se recebido após ESC, ajusta o 


salto de linha para 1/8" 


Na página 43 do Manual do CP 500 
existem algumas informações que são 
úteis para a utilização da P 500. Mas é 
importante ressaltar que se, por exem- 
plo, a impressora estiver configurada 
pelas microchaves para caracteres com- 
primidos e receber uma instrução de 
software para expansão de caracteres, 
ela não irá imprimir caracteres expandi- 
dos, mas sim caracteres comprimidos/ 
expandidos. A expansão dos caracte- 
res só será realizada se enviada a instru- 
ção para descomprimi-los. 

O programa abaixo demonstra como 
podem ser alterados, via software, os 
caracteres da impressora. 


10 LPRINT"ESTA LINHA E“ IMPRES ES COMPR ' 
20 LPRINTIPOIS E OMAVE s ESTA NA EOSLERO SOB En Sac ONPRIMIDOS 

30 LPRINTCHRS(27): LPRINTCHRS (20) 

4O LPRINT 

SO LPRINT“APOS RECEBER O COMANDO CHFS(27)+CHR$(20) PASSA A * 
&0 LERINT“IMPRIMIS NO MODO NOSMAL POIS HOUVE DESCOMPRESSRO DOS" 
70 LPRINT“CARACTERES" 

80 LPRINT 

90 LPRINT 

100 LPRINTCHES (27)CHRS (14) 

110 LPRINTÍRPOS O COMANDO CHESC(Z7)+CHESNIM) " 

120 LPRINT"PRSSA IMPRIMIR NO MODO EXPANDIDO” 

130 LPRINT 

140 LPRINT 

150 LPRINTCHES (27 )CHRS (19) 

150 LPRINT"FINALMENTE QUANDO R IMPRESSORA ESTA NO MODO ExPRNDI- 
170 LPRINT"DO E RECEBE UM COMANDO CHES(27)4+CHES(19) PASSA A OPE” 
180 LPRINT"ROR NO MODO COMPRIMIDO/EXFANDIDO" 

190 LPRINT 


DE O 


200 LFRINT"TODO O TEXTO ACIMA FOI IMPRESSO COM UM SBLTO DE LI-" 
210 LPRINT'NHA DE 1/6'* POIS 8 CHAVE 6 ESTA NA POSICAO <ON>" 
220 LPRINT 

230 LPRINT"POREM E“ POSSIVEL ALTERAR ESTE SALTO POR SOFTUAREM 
240 LPRINT"COM O COMANDO CHES(Z27)+CHRSCTP)M 

Z50 LPRINT 

260 LPRINTCHES (27)CHR$ (29) 

270 LPRINT 


280 LPRINT"APARTIR DESTE MOMENTO O SALTO DE PAGINA PASSA A SER” 
290 LPRINT"DE 1/87” DE POLEGADA E PODE-SE RETORNAR A SEBLTO DE” 
300 LPRINT"1/67* RPENAS DANDO O COMANDO CHPS(27)+CHES(ZS)" 

310 LFEINT 

320 LPRINTCHRS (27)CHRS (28) 

330 LFRINT 


340 LPRINT"APOS RECEBER ESTE COMANDO O SALTO DE PAGINA VOLTA PRº 
350 LPRINT"RA 1/67” COMO PODE-SE REPARAR NO TEXTO QUE VOCE ESTA” 
360 LPRINT'LENDO NESSE MOMENTO" 


———ÕõÕ -. E 


Este programa, quando executado, 
apresenta o seguinte resultado. | 


ESTA LIA E” IMPRESSA COM CARACTERES COMPRIMIDOS 
POIS À CNE 4 ESTA NA POSICAO (OPEN) 


APOS RECEBER O COMANDO CHRS127)+CHRS(ZO) PASSA R 
IMPRIMIR NO MODO NORMAL POIS HOUVE DESCOMPRESSAO DOS 
CARACTERES 


APOS O COMANDO CHRS(2Z27)+CHERSCIS) 
PASSA IMPRIMIR NO MODO EXPANDIDO 


FINALMENTE QUANDO A IMPRESSORA ESTA NO MODO EXPANDI- 
DO E RECEBE UM COMANDO CHR$(27)+CHR$(19) PASSA A OPE 
RAR NO MODO COMPRIMIDO/EXPANDIDO 


TODO O TEXTO ACIMA FOI IMPRESSO COM UM SALTO DE LI- 
KHA DE 17/4º* POIS A CHAVE 4 ESTA NA POSICRO <OM) 


POREM E* POSSIVEL ALTERAR ESTE SALTO POR SOFTUARE 
CcoM O COMANDO CHR$S(Z7)+CHRS(Z9) 


APARTIR DESTE MOMENTO O SALTO DE PAGINA PASSA A SER 
DE 1/8'* DE POLEGADA E PODE-SE RETORNAR A SALTO DE 
1/6** APENAS DANDO O COMANDO CHRS(Z7)+CHRSCZE) 


APOS RECEBER ESTE COMANDO O SALTO DE PAGINA VOLTA PR 
RA 1/6'* COMO PODE-SE REPARAR NO TEXTO QUE VOCE ESTA 
LENDO NESSE MOMENTO 


Convertendo 
Programas: 

do Apple 

para os 
CPhb00e CP 300. 








Complementando a matéria anterior, neste 
número de Geração Prológica estamos 
publicando novas dicas que permitirão 

transformar os programas do Apple para os CP 
500 e CP 300. 


Caracteres 


O Apple não tem letras minúsculas, 
sendo seu conjunto de caracteres ASCII 
duplicado. A tecla ESCape é CHRS$(27): 
ela é frequentemente usada para impri- 
mir comando e pode ser adaptada direta- 
mente. O teclado contém apenas a ma- 
triz direita e esquerda, respectivamente, 
com os valores de 8 e 9, o que não 
acarreta nenhum problema. Os coman- 
dos X=ASC(XS) e X$=CHRS(X) po- 
dem ser adaptados diretamente. 


Operadores Relativos 


São operadores do tipo=, >, <e 
< > Eles podem ser adaptados direta- 
mente. O AND no Apple não é um 
comparador de bit, mas pode ser usado 
apenas para instruções tais como: 


IO TE X= | AND Y = 2 
THEN PRINT “X = 1 AND Y = 2” 


Você pode adaptar este AND e OR 
diretamente. 


No entanto, há outro problema. No 
Apple zero é FALSE, do mesmo modo 
que no CP 500 e CP 300, mas TRUE é 1 e 
não -1. Se os valores numéricos atuais 
são usados, certifique-se de mudar o 
sinal. 


Operadores Algébricos e 
Matemáticos 


Os operadores algébricos são os 
mesmos no Apple e nos CP 500 e CP 300. 
O hífen é usado para negação e subtra- 
ção. Strings podem ser concatenadas 
com o sinal “4”. 

Todas as operações matemáticas 
podem ser transferidas diretamente. O 
DEF FN, que permite a você criar a sua 
própria função, pode ser adaptado dire- 
tamente. A única função que requer 
explicação é SGN, que retorna o sinal do 
número (não o seno) -1, se ele é negati- 
vo, O ou 1 se é positivo. Para simular Y= 
SGN (X), use Y=(X < OX > 0). 


Outra área que precisa ser explicada 
é a dos números randômicos. O RND (1) 
do Apple é equivamente ao nosso RND 
(0), sendo que ambos produzem deci- 
mais randômicos. O RND (0) do Apple 
exibe o mais recente decimal randômico 
escolhido. Ele pode ser reproduzido 
através da cópia do mais recente RND 
(0) dos CP 500 e CP 300 em uma variável, 
que pode então ser utilizada: AS= RND 
(0). O Apple não tem RND (X). Para 
exibir inteiros randômicos em ordem 
entre 1 e X, inclusive, ele usa Y= INT 
(RND (1) * X À 1). Você pode substituir 
o RND (1) por RND (0) ou substituir a 
expressão inteira por Y =RND (X). 
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Sistemas e Utilitários 


FRE(O) no Apple retorna a quanti- 
dade de memória disponível ao usuário. 
Ele pode ser adaptado em MEM. Se 
você está especialmente interessado na 
quantidade da string de memória, use 
FRE(XS). 

A memória disponível para você no 
Apple é colocada por HIMEM: e LO- 
MEM:. Elas estabelecem limites da área 
que o programa pode usar. Você fre- 
quentemente verá HIMEM: 8192. Isto 
coloca o limite de memória exatamente 
abaixo de uma página de alta resolução, 
de modo que um programa não sobrepo- 
nha a memória de vídeo. Ignore-o, mas 
libere a memória quando você entrar em 
Basic. Adicione aproximadamente 
18.000 (ou 28.000 para sistemas de disco) 
para o número usado no programa, pois 
os programas Applesoft iniciam em 
800H. Quando você entrar em Basic, 
existe a possibilidade de colocar o núme- 
ro do buffer de disco que o MAXFILES 
do Apple requer. 


PEEK e POKE 


Estes comandos são diferentes no 


“Apple. Você pode usar um número posi- 


tivo ou seu negativo equivalente (dife- 
rença de 65536). Isto significa que POKE 
49168,0 é equivalente a POKE - 16368,0, 
o que é de grande utilidade por três 
motivos: em primeiro lugar, os números 
altos são usados porque a ROM do 
Apple começa no DOOOH e continua 
até FFFFH e os POKES são usados para 
colocar pontos dentro dela. Em segundo 
lugar, os POKES são utilizados para 
estabelecer um programa em linguagem 
de máquina, na memória baixa. Os 256 
bytes iniciando em 768 não são usados 
pelo Apple, assim, a maior quantidade 
de rotinas de sons e pequenas sub- 
rotinas estão lá. Em terceiro lugar, os 
256 bytes estão na ““página zero”; PO- 
KE 32,5 dá cinco espaços em todo o 
texto, por exemplo. 


CALL e USR 


O comando USR (X) é o mesmo 
USR(X) dos CP 500 e CP 300. Ele 
introduz valores de ida e volta de uma 
sub-rotina em linguagem de máquina. Se 
você não souber adaptar a rotina na 
linguagem do Z80, veja se há um Basic 
equivalente que faça a mesma coisa, um 
pouco mais devagar, ou dê um jeito de 
simplesmente não usá-lo. 

CALLs são usados frequentemente 
porque podem utilizar rotinas de ROM 
para fazer coisas rapidamente. A tabela 
abaixo lhe ajudará a adaptar CALLs 
comuns: 


Ferramentas 


STOP e COMT podem ser adapta- 
dos diretamente. O comando TRACE do 
Apple pode ser substituído por TRON, e 
NOTRACE por TROFF. 


Arquivos de Programas 


Um programa do Apple pode carre- 
gar outro usando um CHR$(4) ou um 
controle -D embutido. Em outros casos, 
a linha pode ser transferida. Se você 
deparar com alguma coisa do tipo: 


10 PRINT CHR$(4);'"' RUN THE GaA- 
ME” ou 

10 D$="""": REM CTRL-D 

20 PRINT D$; RUN THE GAME” 
converta-os para: 


10 RUN “THE GAME/BAS” 


O comprimento dos nomes de arqui- 
vos devem ser trocados. Em adição, 
especificações de drive devem ser usa- 
das. O drive mestre do Apple é numera- 
do pelo algarismo 1. Todos os discos do 
Apple contêm o DOS, sendo que um 
segundo drive não será necessário, ape- 
sar de ser numerado pelo algarismo 2. O 
SPEC é mostrado por um ,Dx, onde x é 
o número do drive. Exemplo: 


10 PRINT CHR$(4); “LOAD THIS 
PROGRAM,D2” 

torna-se: 

10 LOAD “THISPROG/BAS:1” 


O Apple possui um diretório do 
disco para ser mostrado de dentro de um 
programa. PRINT CHRS$ (4); “CATA- 
LOG” pode ser substituído com o equi- 
valente do CMD “'D:0” DOS 500 1.3, 
que permite guardar com facilidade ar- 
quivos de linguagem de máquina, carre- 
gados e rodados. ''B'' permanece para 
binário. PRINT CHRS$S (4);''BRUN 
THIS PROGRAM?” pode ser substituído 
por: CMD'T”, “THIS PROG/CMD"”", 
que retorna para DOS 500 1.3 e executa 
THISPROGRAM. BSAVE pode ser fei- 
to de maneira similar. Seus parâmetros 
incluem o endereço de início do arquivo 
binário e seu comprimento. Exemplo: 


PRINT CHR$(4);''BSAVE PICTURE 
DATA, A$2000, L126” 

na qual $ indica um valor hexadecimal. 
Pode ser simulado por: CMD “*'1"", XS$ 
com X$='DUMP PICTURE/DAT 
(STAR E = END =. o RÃS sê 
com o parâmetro de ajuste registrado. 
BLOAD pode ser simulado com a instru- 
ção CMD''L"”. E frequentemente usado 


CALL Apple Função Adaptação 

CALL -936 limpa a tela CLS 

CALL -958 limpa a parte debaixo do texto PRINT CHRS$(31) 
CALL 875 limpa a linha inteira PRINT CHR$(29) 
CALL -868 limpa à direita da linha PRINT CHR$(30) 
CALL -678 espera por ENTER INPUT X$ 
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para carregar rotinas de som ou formatos 
de figura. 


Arquivos Sequenciais 


O Apple abre um arquivo sequencial 
quando encontra PRINT CHR$(4); 
“OPEN FILENAME”. Você também 
pode encontrar uma especificação de 
drive com nome. Quando um arquivo é 
aberto, ele pode ser gravado ou lido, 
coisa que o Apple faz através de uma 
instrução tipo: 

20 PRINT CHRS$(4); “WRITE FILENA- 
ME” ou 

20 PRINT CHR$(4); “READ FILENA- 
ME”. 

Daí em diante, qualquer PRINT XS$ gra- 
va e qualquer INPUT lê o que foi o 
gravado. Uma vantagem desta combina- 
ção é que o arquivo não precisa ser 
fechado e reaberto quando você muda de 
WRITE para READ. O modo mais fácil 
de executar a conversão para os CP 500 e 
CP 300 é reabrindo um arquivo através 
do comando: 


I0:0OPEN “0, 1; 
“"NOMEARQ/TXT” 


onde “'1”” indica o número do buffer. 
Feito isto, mude todos os PRINTSs sem 
bloco para PRINT seguido da viarável 
para executar a gravação. Para a leitura, 
se | JO OBEN “II, “NO- 
MEARQ/TXT”, e troque todos os IN- 
PUTSs para INPUT seguido da variável e 
adapte o PRINT CHR$(4); “CLOSE 
FILENAME” para CLOSE. 


Tanto o Apple como os CP 500e CP 
300 permitem a abertura e gravação de 
arquivos sequenciais. Um 10 PRINT 
CHR$(4); “APREND FILENAME” de- 
ve ser transformado, no caso dos CP's, 
para. 10. OPEN E", 1 ““NO- 
MEARQ/TXT”. 


Arquivos de Acesso 
Randômico 


Para abrir um arquivo de acesso 
randômico, no Apple, é necessário que o 
usuário especifique o comprimento do 
registro através da instrução: 10 PRINT 
CHR$(4); “OPEN RANDOM LHO”, 
que faz com que os campos tenham um 
comprimento de 40 bytes. Para abrir um 
arquivo desse tipo, você poderá usar o 
padrão: 


10 OPEN “R”, 1, “RANDOM/TXT””, 40 


e não esqueça de incluir a instrução 
FIELD para alocar os campos no regis- 
tro. Exemplo: FIELD 1,40 AS NAMES, 
o que permite definir que a variável 
NAMES contenha até 40 bytes. READS 
e WRIT$ são manipulados de modo 
diferente no Apple (que necessita de Rx) 
e nos CP's. Ambos, no CP 500 e CP 300 
são executados com o uso de buffers de 
aquivo e um apontador de registro. Se 
X% é o número do registro a ser recupe- 
rado, então GET 1,X% faz sua leitura e 
PUT 1,X grava no registro. 
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5 dois usam computador: 


ssim como toda educação E vai dar mais tempo para você e sua familia Veja o que você faz com o CP 200: 
emana de alguma imagem do criarem um futuro melhor. e Aprendizado em linguagem Basic 

futuro, toda educação emana e Divertidos jogos e passatempos eletrônicos 
alguma imagem do futuro." e Orçamento doméstico 

(Alvin Tofller) e Controle de conta bancária 


O CP 200 da Prológica é simples de operar, Aulas de matemática e fisica 
custa menos do que um tv a cores e faz Gráficos e cálculos científicos 


importantes trabalhos de interesse de toda a Gm PROLOGICA 
EB 


família. Com ele você e seus filhos aprendem a 
linguagem “Basic” e ficam aptos a programar microcomputadores 


qualquer tipo de computador, participando e 
Av. Eng? Luiz Carlos Berrini, 1168 - SP 





= (e cerva OS e rm SS e 









ne Po 


criando o momento atual que já é chamado de 
“a era da informática”. 

; Basta ligar o CP 200 a um televisor e a um 
gravador para você ter um computador 

complet o em sua casa. 

Assim como o extrato de tomate, O 
liquidificador, o durex, o automóvel, a máquina 
de escrever e a calculadora, o CP 200 vai 
simplificar sua vida. 


| SOLICITE DEMONSTRAÇÃO NOS PRINCIPAIS MAGAZINES. 
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SC - Blumenau - 22-6277 - Campos Novos - 44-0196 - Criciúma - 33-1436 - Florianópolis - 22-9622 - 22-6757 - Itajaí - 44-1524 - Joinvile - 33-7520 - Rio do Sul - 22-0557 - SE - Aracajú - 224-1310 a. 
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Agora, na hora de escolher entre um Pode ser ligado ao seu"aparelho de TV, da 
microcomputador pessoal simples, de fácil mesma forma que no terminal de vídeo 
manejo e um sofisticado microcomputador de uma grande empresa, | 
profissional, você pode ficar com os dois. Com o CP 300 você pode 
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possibilidade de Permite para o CP 500 ou o 
expansão de memÓ- artes TRS-80 americano. E o que é melhor: 












| Pode ser ria externa para até Ea você estará apto a operar qualquer 
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sea fazem 0 que ele faz, EREBER microcomputadores 
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